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INTRODUCTION 


The  EZPSD  procedure  is  designed  to  meet  three  needs.  The  first  is  to 
make  available  to  SPEAKEZ  users  the  Foreign  Agricultural  Service's 
Production,  Supply  and  Distribution  (PSD)  data  base.  The  SPEAKEZ/FEDEASY 
routines  are  powerful  statistical,  econometric,  and  mathematical 
tools  that  will  greatly  enhance  the  capabilities  of  USDA  analysts 
working  with  the  PSD  data.  The  second  need  is  to  provide  an  inexpensive 
but  flexible  means  of  listing  the  FAS  data.  The  EASYSTRIEVE  package 
is  used  to  accomplish  this  at  considerably  less  cost  and  greater 
ease  than  possible  with  FORESIGHT  or  SPEAKEZ.  However,  knowledge 
of  EASYTRIEVE  is  not  usually  required.  The  third  and  final  need  is 
ancillary  to  retrieving  the  FAS  PSD  data.  It  is  to  provide  batch 
processing  of  SPEAKEZ  commands  from  the  interactive  terminal. 

Given  the  sensitivity  of  the  contents  of  the  FAS  PSD  data 
base,  the  information  generated  by  these  routines  should  not  be 

released  to  the  public  without  the  approval  of  the  Director  of 

the  responsible  FAS  commodity  division. 

Once  in  READY  mode  (using  ERSPROC)  the  EZPSD  procedure  is  entered  by 
typing  EZPSD.  If  you  are  unfamiliar  with  what  an  EZPSD  routine 
will  do,  type  HELP.  The  country  and  commodity  codes  are  to  be  found 
in  Appendices  B  through  D,  but  they  are  also  available  in  the  Index 
to  the  FAS  PSD  Data  Base,  The  following  general  points  pertain  to 
all  batch  jobs: 

1)  The  batch  jobname  can  be  up  to  8  characters  of  your  choosing 
(per  organizational  standards). 

2)  Before  using  EZPSD  you  should  know  your  10  digit  account 
number . 

3)  You  are  encouraged  to  submit  batch  jobs  as  priority  1  (weekend) 
at  one  third  of  the  regular  cost  with  overnight  turnaround 
under  normal  circumstances. 

4)  When  generating  XEROX  output  ,  you  should  notify  the  remote 
terminal  operator  and  complete  the  appropriate  forms. 

5)  Only  if  a  job  is  exceptionally  long  will  a  job  class  other 
than  C  be  required.  (For  example,  a  seven  commodity  GOL 
region  report  (routine  SUMRGN)  should  be  run  under  class  D). 

6)  If  you  are  submitting  more  than  one  batch  job,  EZPSD  will 
remember  this  JCL  information  from  the  previous  batch  job. 

To  repeat  this  information,  send  a  carriage  return  when  prompted 
for  an  entry. 
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SUMMARY  OF  EZPSD  ROUTINES 


EZPSD 

Routine 

Description 

BRIDGE 

will  place  into  a  CHECKPOINT 
or  SPEKSAVE  file  PSD  data  for 
a  particular  country  and 
commodity  with  attributes  of 
your  choice. 

CMDY 

will  list  all  country  data  for 
a  specified  commodity.  A 
report  format  must  exist  (see 

MAKERPT) . 

CTRY 

will  list  all  commodity  data 
for  a  specified  country. 

MAKERPT 

will  permit  creation  and/or 
change  of  the  report  formats 
used  in  CMDY,  RGN,  SUM  and  SR. 

RGN 

will  list  the  commodity  data 
by  GOL  region.  (See  Appendix  A) 

SPKBATCH 

will  allow  creation  and/or 
change  of  SPEAKEZ  commands 
then  submit  them  for  batch 
execution. 

SPKROG 

is  like  BRIDGE  but  will  also 
allow  the  user  to  execute  your 
own  SPEAKEZ  program  on  the 

PSD  data. 

SUMRGN 

will  aggregate  several  commodities 
using  a  common  report  format  and  list 
them  by  GOL  region  aggregation. 

SUM 

will  aggregate  several  commodities 
using  a  common  report  format,  and 
list  them  by  country. 

TRENDS 

is  like  BRIDGE  but  will  also  run 
time  trends  using  four  OLS  functional 
forms:  T,  T**2,  T**3,  and  log  of  y 

QUIT 

will  end  execution  of  EZPSD  procedure 
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BRIDGE 


DESCRIPTION: 


The  BRIDGE  routine  will  place  FAS  PSD  data  into  a 
CHECKPOINT  file  for  use  in  SPEAKEZ.  This  routine  will 
ask  you  for  a  country  name,  its  2  character  OASIS  country 
code,  its  3  digit  FAS  country  code,  the  commodity  name, 
its  2  character  OASIS  commodity  code  and  its  7  digit 
FAS  commodity  number.  Please  see  Appendix  D  for  the  country 
codes,  and  Appendix  B  for  the  commodity  codes. 

Next,  the  routine  requests  the  attribute  codes  desired. 
Please  see  Appendix  C  for  the  attribute  codes.  Either 
FAS  or  OASIS  3  character  codes  (PRO,  BSK,  SPC,  SCC ,  etc) 
may  be  used.  A  vector  of  years  is  automatically  created 
with  the  attribute  code  of  YER.  Each  data  vector  is  assigned 
a  7  letter  SPEAKEZ  name  with  the  first  two  characters 
being  the  commodity  code,  the  next  three  characters  the 
attribute  code,  and  the  last  two  characters  the  country 
code . 

If  production  and  rough  production  are  specified,  then 
their  ratio  is  calculated  with  an  attribute  of  YMR.  If 
production  and  area  harvested  are  specified,  then  their 
ratio  is  calculated  with  an  attribute  code  of  YHH.  The 
commodity  and  country  names  are  placed  in  XXYYNAM,  the  data 
vector  names  are  elements  in  XXYYLST,  and  the  argument  list 
(see  the  SPEAKEZ  manual)  is  XXYYARG,  where  XX  is  the 
commodity  code  and  YY  is  the  country  code.  The  variables 
XXYNAM,  XXYYLST  and  XXYYARG  are  placed  in  the  checkpoint 
file  with  the  data. 

(See  the  example  on  the  next  page)  . 
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Example  of  BRIDGE 

WELCOME  TO  THE  EZPSD  SYSTEM. 

F.A.3.  PSD  DAT A  OBTAINED  hefe  is  mot  for  release 
I.MLESS  CLEFR ED  BY  F.A.S.  COMMODITY  DIUISIOM-S.  ' 

□HER  ROUTINE  CODE  (QUIT  OR  HELP) 

BRIDGE 

THIS  IS  A  FSD  BRIDGE  TO  SFEAKEZ 
OTTER  THE  COUNTRY  MhME 

RJSTRRLIR 

ENTER  THE  £  CHFPACTER  OASIS  COUNTRY  CODE 

RU 

ENTER  THE  3  DIGIT  FflS  COUNTRY  CODE 

OUu. 

□ITER  THE  COMMODITY  MfiME 

tF:RIN  GCFGHUn- 

ENTER  THE  £  CHARACTER  OASIS  COMMODITY  CODE 

SG 

OTTER  THE  7  DIGIT  FAS  COMMODITY  CODE 
£1 1 1050 

GRAIN  SORGHUM  IATA  FOR  AUSTRALIA  WILL  BE  SAUED  ON  ERS45. SGAU. SFEK3 E 
THE  FAS  COMMODITY  CODE  IS  ...£111050  AMD  COUNTRY  CODE  IS  G0£. 

IS  THIS  CORRECT?  (Y  OR  M) 

v 

ENTER  NO  MORE  THAN  7  PSD  3  CHARACTER  ATTRIBUTE  CODES 

IN  this  Format :  nHH« sPP* sPc? smu? uxu?  udu? out 

THE  YEAR  INDEX  IS  AUTOMATICALLY  SGYERAU.  IF  THE 

CODES  APE  UNCHANGED  FROM  THE  PRECEDING  BRIDGE?  ENTER  SAME. 

HRRJPRO?  E.rK-  £■  ;<=>•  UE  1  ?  Ul£?  PFP 

HOF-!?  FF.’U?  BsK?  E!  P'?  Usl  ?  US£?  F>  P 
IS  THIS  CORRECT?  (Y  OR  N) 

v 

EHTER  THE  JOBMAME 

CRiTOuJH 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
01  £3:45.07  BS 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

FF1T 13 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

Q  FOR  WEEKEND*  3  FOR  AUER  AGE?  AND  13  FOR  ASAP) 

1 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

c 


JOBNfiM E = ER S3 UH  ACCOUr  T  -  1  ?  --  -  -  ’  -  -OP  1  ES=  1 

ROUTE=RMT  1 3  F0RM=1431  -i  .u;-.S=:=C 

is' THIS  CORRECT?  (Y  OR  N) 

v 

THE  MAPI  ABLE  NAMES  ARE  ELEMENTS  OF  SGAULST  AND  AND  THEY  ARE  IN  AM  ARGUMEN 
CALLED  SGhUARG . 

JOB  ERS3WHU0B0£17<3)  SUBMITTED  FREE  ALL  FILES 

ENTER  FOUTINE  CODE  (QUIT  OR  HELP) 

QUIT 

THANK  YOU  FOR  USING  EZPSD 

FEADY  .  . . 


CMDY 


DESCRIPTION: 


The  CMDY  (commodity)  routine  will  submit  a  batch  job 
that  will  list  the  FAS  PSD  data  for  a  specified  commodity. 
The  listing  will  include  data  for  all  countries  in  the 
data  base,  even  those  that  are  not  currently  maintained 
by  FAS.  You  must  enter  the  7  digit  FAS  commodity  code 
and  the  one  letter  report  type.  The  routine  will  ask 
you  if  a  standard  report  format  is  to  be  used.  If  not, 
it  will  ask  for  the  name  of  file  where  your  non-standard 
formats  are  kept.  A  report  format  of  this  code  and  type 
must  exist  ,  but  if  not ,  you  may  create  such  a  report 
format  using  MAKERPT. 


EXAMPLE : 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 
cnDv 

THIS  IS  R  UUMMUD I TV  ERTuH  RUN 

ENTER  THE  7  DIGIT  FRS  PSD  COMMODITY  NUMBER 

HR  LOG 00 

ENTER  THE  ONE  LETTER  REPORT  TYPE 

R 

R  RE  YOU  USING  THE  STRNDRRD  REPORT  FORM  RTSS'  (Y  OR  N) 
v 

ENTER  THE  JOENRME 

ERSSbJH 

ENTER  YOUR  10  DIGIT  RCCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FR 

FPITlS 

IS  THE  OUTPUT  TO  BE  ON  YEROY?  (Y  OR  N) 
n 

WHAT  IS  YOUR  PRIORITY? 

(1  r  uR  WEEKEND ?  S  FuR!  AUERAuE?  hND  Is  FUR  RsRF'J 
WHRT  Is  l  HE  Jus  ULASSY  (USUALLY  L  J 


JO  BN  AM  E = ER:  S3  WH  RGC0UNT=  0123456789  C0PIES=1 
R0UTE=RMT 1 3  F0RM= 1 43 1  PR  I OR I TY=3  CLASSIC 

IS  THIS  CORRECT?  CY  OR  N) 


.JOB  ERSSHH  ( ..0303773)  SUBMITTED  ** 


r  r  c_m 
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CTRY 


DESCRIPTION: 

The  CTRY  (country)  routine  will  submit  a  batch  job  that  will 
list  all  the  commodity  data  for  a  specified  country.  The 
listing  will  include  data  for  all  commodities  in  the  data 
base,  even  those  that  are  not  currently  maintained  by  FAS. 

You  only  enter  the  3  digit  FAS  country  code;  no  report 

format  is  required.  Since  a  generalized  supply  and  utilization 

table  is  employed ,  you  should  be  alert  to  the  possible  truncation 

of  the  high  order  (greater  than  9,999,999)  digits  of  the  following 

fields:  beginning  stocks,  ending  stocks  and  uses  one,  two 

and  three.  The  report  headings  are  are  the  attribute  codes 

(see  Appendix  C)  which  will  vary  in  meaning  by  commodity. 

Contact  the  FAS  commodity  division  for  the  precise  significance 
of  the  attribute  fields. 

EXAMPLE : 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP'! 

CTRV 

THIS  IS  R  COUNTRY  BATCH  RUN 
ENTER  THE  3  DIGIT  FRS  PSD  COUNTRY  NUMBER 
602 

ENTER:  THE  JOENRME 

ERS3WH 


ENTER  YOUR  1 0  DIGIT 

0123456739 

ENTER:  THE  NUMBER:  OF 


ACCOUNT  NUMBER 
COPIES  DESIRED 


^RMT13  THE  REMOTE  TERMINAL  (RMT1S  FOR  ESCS  OR  RMTS 

IS  THE  OUTPUT  TO  BE  ON  LEROY?  (Y  OR  N'i 

¥ 

ALLOW  3  DRY'S  FOR  LEROY  PROFESSING  '* 

WHAT  IS  YOUR  PRIORITY? 

jl  FOR  WEEKEND?  o  FuR  AUERAGE?  AND  IS  FOR  ASAP) 

WHAT  IS  THE  JOE  CLASS'"  n  '‘-'."'ULY  Oj 

c 


FuR:  FA; 


JOB  NAM  E = ER  S3  WH  RCC0UNT=°1  23456789  C0PIES=  1 

RuUTE=RMT  1 3  F  CRM=  -^^0  pp  j  op  j  y  ,■  =  3  QLASS=C 


¥ 

JOB  ERS3WH ( JOE 0956 S )  SUBMITTED  **  FREE  ALL  FILES  «« 


/ 


'/09/T9  F.A.S.  supply  And  DISTRIBUTION  DATA  (NOT  FOR  RELEASE)  PAGE 

warnino:  these  pields  may  be  truncated:  bsk,  u-i,  u-2,  u-3.  and  esk 


CTRY 


Sample  Output 


o 

* 


©  <0  c*  co  ©  ®  ©  m  —  r-  •-  <d  in  o  ©  cn  —  •• 

©  —  m  ©  ©  ©  ©  <7  id  ©  in  ©  ©  ©  o  io  ©  as 

••  ©  ©  ©  id  m  ©  ©  ©  o»  ©  ©  ©  ©  —  ©  —  **■* 

*-  . . * . 

o  w>  .  *•  n  *•  *-  *-  *»«•«•  —  »-  *--©©©—©  n  n 

u  UJ 


in 

z  n 

o  ©tu 

»-  3V» 

3 
U 


ui 

S 


© 
U.  UJ 
X  vi 
3  3 


cn 

3 


<d  o  <c  ©  c-  (j»mf»*®(J»o»in®r'0«T»n®o 
co  q  «r  ©  ©  ©  —  ©  p*  ®  o  d  ®  o>  o  <t  in  o)  q 

*-  ©  uj  ©  id  in  n  ©  tf1  P*  'D  in  ©  o  ©  <r  oo  o 

O  ui  -  -  .....  .  ... 

u- m  coo  *-  ©  d  co  r-  ©  *r  ©  <r  ©  ©  ©  <r  <r  ©  © 

33  o  —  ©  o  *-  oi  co  in  id  r»  cd  or  —  ©  <o  f»  ©  c* 

»-  r- 


©  o  co  t"  ©  in  r**  ©  ©  ©  in  dip-  o  <t  n  ©  q 

IDO^T  CN©  ©  —  fN  C'  O  O  ©  ID  CD  ©  in  ©  O 

cn  ©  cn  co  in  ©  ©  in  o  in©©<r©*yooo 


CN 

O 

© 


0  3  ©  O  —  Cl  CO  ©  f>-  ©  <T  CN  ©  ©  ©  *TP^  <T  ©  CN 

a  o  ©  —  cio  —  ©  ©  *r  in  <o  ©  ©  —  ©  ©  ©  ©  © 

3  Y~  •  -  —  -  -r-  Y-  -  -  -  -  -  CN  -  *-  -  *-•- 


o 

a. 


©©  r-  o  ©  in  o  id  ©  ©  <r  ©  ©  ©  ooooo 

®  ©  ©  in  co  m  o  ©  p*  ©  ©  ©  r-  ©  ®  o  <y  oo 

<o  ©■  ©  ©  o  cn  cn  <r  ©  ©  ©  ©  in  <r  ©  —  ©o 


o 

o 
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OO©©  —  o  r**o  ©  ©  ©  ©ID  in  f»  »T 

CL  QC  O  —  CN  —  —  ©  ©  *T©  ©r»  ffl  O  © 

©  CL  *-  *-  *•  —  —  —  ••  •*“  CN  CN 


©  O  © 

t-  ©  © 


© 
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O  * 
Dirt 
©  © 


<N 
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P* 


©  ©  p*  ©  ©  r*»  ©  c-  ©  —  p*  - 

©  ■—  ©  ©  ©  ©  ©  <T  lO  ©  ©  © 

*-  CN©  ©©  ©  ©  CN  ©01  ©© 
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MAKERPT 


SCRIPTION : 

The  MAKERPT  (make  EZPSD  report)  routine  allows  you  to  create  and/or 
modify  the  report  formats.  Each  format  is  identified  by  the  7  digit 
FAS  commodity  code  (from  Appendix  B)  plus  a  one  letter  report  type. 

(Type  A  is  designated  as  the  fundemental  S  and  U  format  for  a  commodity 
but  other  formats  may  be  available.)  The  routine  will  ask  for  the  commodity 
code  and  report  type.  You  should  enter  the  code  and  type  for  the  new 
report  format,  or  the  old  code  and  type  if  an  existing  format  is  to 
be  modified. 

Next  the  routine  will  ask  if  you  are  using  a  standard  report  format. 

Enter  'yes’  unless  you  have  already  set  up  this  report  in  your  own  report 
format  file.  The  routine  will  ask  you  for  a  name  for  your  report  format 
file,  suggesting  ’EZPSD. DATA'  if  you  don't  have  one  already.  However 
the  name  is  your  choice;  you  prefix  will  be  added  automatically.  (ESCS 
users  are  advised  to  follow  agency  file  naming  conventions.)  For  the 
new  format,  it  will  look  for  an  existing  format  under  that  code  and 
type  and  use  it.  If  there  is  no  matching  format  it,  will  ask  you  for 
an  existing  format  of  similar  layout.  (All  report  formats  must  have 
attributes  as  column  headings  and  years  as  stubs). 

After  finding  a  format,  you  can  use  the  TSO  EDITOR  (which  similar  to 
the  SPEAKEZ  EDITOR)  to  edit  the  standard  report  format  (or  your  own 
report  format)  until  it  meets  you  satisfaction.  Upon  entering  the  command 
’STOP’  the  EDITOR  will  save  the  format  into  your  personal  report  format 
file.  (In  technical  terms,  your  EZPSD. DATA  file  is  a  partitioned  data 
set  with  member  names  N9999999  where  N  is  the  report  type  and  9999999 
is  the  commodity  code.  However  MAKERPT  will  take  care  of  these  details.) 

If  are  you  especially  proud  of  your  report  format,  contact  Walt  Houser 
so  that  it  can  be  placed  in  the  standard  report  format  file. 

There  are  four  kinds  of  EASYTRIEVE  statements  used  in  the  EZPSD  report 
formats.  In  order  of  appearance,  the  first  is  the  EQUATE  statement  (which 
is  optional).  It  allows  one  to  make  caculations  of  ratios  or  sums  of 
the  data.  For  example: 

XX- (W  9  NO)  =  BSK  +  IMP  +  PRO 

The  field  XX  will  be  a  9  digit  work  field  used  for  caculation  as  indicated 
by  the  phrase  in  parentheses  (W  9  NO)  where  0  (a  zero)  is  the  number 
decimal  places  and  9  is  the  number  of  digits.  XX  will  be  the  sum  of 
beginning  stocks  (3SK),  imports  (IMP)  and  production  (PRO). 

If  you  wish  to  multiply  or  divide  two  fields,  for  each  such  EQUATE  you 
must  insert  a  COMPUTE  statement  just  above  the  T1  statement.  It  is  similar 
to  the  EQUATE  but  instead  of  using  the  attribute  codes,  the  variables 
are  in  the  form  TOTN  which  refers  to  the  Nth  quantitative  variable  appearing 
in  the  LIST  statement.  For  example: 

YY-( W  2  P2)  =  PRO  /  HAR 
COMPUTE  T0T3  =  T0T2  /  T0T1 
T1  CORN  AREA,  PRODUCTION  AND  YIELD 
LIST  SPACE  3  DETAIL  SKIP  YEAR  MORE 
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HAR  T AREA* IN, 1000*HA'  MORE 

PRO  'PRODUCTION, IN* 1 000, METRIC*TON'  MORE 

YY  'YIELD* IN, MT* PER* HA' 

Excluding  nonquantitative  fields  such  as  YEAR,  the  fields  HAR,  PRO,  and 
YY  are  1,2  and  3  in  order  in  the  LIST  statement;  therefore  they  are  T0T1, 
T0T2,  and  T0T3  in  the  COMPUTE  statement.  Notice  that  the  calculation  in  the 
in  the  EQUATE  must  correspond  to  that  in  the  COMPUTE. 

The  next  statement  is  the  TITLE  statement.  It  is  in  the  format: 

T1SOYOIL  (3143040)  SUPPLY  AND  UTILIZATION 

T1  must  always  be  the  first  two  characters  of  the  title  statement.  The  text 
following  the  T1  will  appear  centered  by  EASYTRIEVE  as  the  first  line  of  the 
title.  The  number  3143040  is  the  7  digit  FAS  code  for  soyoil  and  is  included 
in  the  title  to  document  the  data;  it  is  not  required. 

Finally,  there  is  the  LIST  statement,  which  defines  the  column  headings.  For 
example : 

LIST  SPACE  1  DETAIL  SKIP  BSK  ’ BEGINNING , STOCKS ’  MORE 
PRO  ’PRODUCTION’  IMP  ’IMPORTS'  EXP  'EXPORTS'  MORE 
TDU  'TOTAL, DOMESTIC, CONSUMPTN'  ESK  ’ ENDING, STOCKS' 

Ths  SPACE  1  indicates  that  there  is  to  be  one  space  between  each  column 
on  the  report.  The  DETAIL  requires  all  data  lines  to  be  printed. 

The  SKIP  causes  the  report  to  be  double  spaced.  YEAR  is  the  column 

of  years;  in  most  formats  they  act  as  stubs.  If  the  LIST  statement 

is  not  completed,  the  last  entry  on  the  line  should  be  MORE.  The 

BSK  is  the  3  character  FAS  attribute  code  (Appendix  C)  of  the  data 

to  be  printed  with  the  heading  in  single  quotes  after  it.  The  actual 

data  associated  with  an  attribute  code  will  vary  by  commodity.  Each  heading 

may  be  3  lines  with  no  more  than  10  characters  per  line,  for  a  maximum  of 

30  characters  per  attribute.  EASYTRIEVE  will  center  each  line  of  the  heading 

for  you.  Each  of  these  lines  must  be  separated  by  a  comma;  embedded 

blanks  in  the  heading  must  be  replaced  by  asterisks  (*).  For  example: 

US5  ' FEED*AND , SEED*U  SE ' 

The  last  column  entry  must  not  have  a  MORE  after  it. 


If  the  EASYTRIEVE  job  will  not  run  because  the  desired  number  of  columns 
will  not  fit  into  one  page  of  output,  the  width  of  the  PSD  attributes 
can  be  reduced.  Type  the  attribute  code  followed  immediately  by  the 
maximum  number  of  digits  expected  for  that  field  (not  including 
commas  or  negative  signs ) .  For  example,  for  Beginning  Stocks,  enter 
BSK7  for  seven  digits,  BSK5  for  five  digits,  or  BSK3  for  three  digits. 
Three,  five,  and  seven  digits  may  be  used;  the  default  width  is 
nine  digits.  The  width  specified  here  will  also  be  used  for  the  regional 
(RGN),  summation  (SUM)  and  summation  by  region  (SUMRGN)  routines  also, 
so  be  careful  to  specify  sufficient  digits  for  these  aggregated  values 
as  well.  If  you  still  have  difficulty  in  reducing  the  columns  enough 
to  get  the  report  to  run,  you  may  wish  to  use  the  EQUATE  statement 
to  change  the  unit  of  measure.  (See  one  of  the  grain  report  formats, 
i.e  A2111010,  for  an  example.)  Do  not  forget  to  use  the  SPACE  1 
option  described  above. 
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Example  of  MAKERPT 


EN~EF'  POUT  I  ME  CODE  i.  till  IT  OR  HELP) 

MRKERPT 

THIS  POUT1ME  MILL  CREflTE  OR  CHANGE  EASYTR1EUE 
PARAMETERS  F OF'  A  COMMODITY  REPORT. 

EMTER  THE  NAME  OP  YOUR  REPORT  FORMAT  FILE 

IF  YOU  Horn  HA"E  ONE*  EMTER  ’EZF'SD.  DATA’ .  IERSSS  IS  ASSUMED.) 
EZF'SD.  DATA 

BITER  THE  7  DIGIT  FAS  COMMODITY  CODE 
3735122 

EJITER  THE  REPORT  TYPE  i USUALLY  A  FOR  THE  FIRST  REPORT). 

A 

APE  YOU  USING  ONE  OF  THE  STAMDAF:D  REPORT  FORMATS?  «.Y  OR  M) 

M 

YOU  MAY  HUH  AMD  CHANGE  THESE  PARAMETERS  USING  THE  TSO  EDITOR. 
SEND  *  STOP*  WHEN  YOU  APE  FINISHED. 

EDIT 

L 

MY- i W  5  PO)  =  3SK  +  IMP  +  PRO 

zz-tw  5  po)  =  esk  +  e:  :p  tdu 
yy- I w  j  po)  =  -  zz 

T INCH  FAT  DRY  MILK:  SUPPLY  AMD  DISTRIBUTION*  5735122 
LIST  DETAIL  SKIP  YEAR  ’  YEAR *  PR07  'PRODUCTION*  MORE 
3SK7  ’  BEGINNING*  STOCKS*  MORE 

imp7  *  imports*  *  total > supply*  exp?  ’exports*  more 

TDU7  *  DOMESTIC! USE*  MORE 

ESK7  ’BIDING* STOCKS*  ZZ  ’ TOTALED 13= , TP I BUT I ON*  MORE 
YY  ’RESIDUAL’ 

END  OF  DATA 

EDIT 

STOP 

EES05.  EZF'SD.  DFlTA  i  A5735122)  HAS:  DEEM  CREATED. 

ENTER  ROUTINE  CODE  .iGUIT  OP:  HELP) 

CMDY 

THIS  IS  A  COMMODITY  BATCH  FUN 

ENTER  THE  7  DIGIT  FAS  PSD  COMMODITY  NUMBER 

5735122 

ENTER  THE  ONE  LETTER  F'EF'ORT  TYPE 

fr 

ARE  YOU  USING  THE  STANDARD  REROFlT  FORMATS?  lY  OP  N) 

N 

ENTER  THE  NAME  OF  THIS  FILE  tERSSS  IS  ASSUMED;. 

EZF'SD.  DATA 
ENTER  THE  JGBNAME' 

ER4D  Bn 

□  ITER  YOIJR  10  DIGIT  ACCOUNT  NUMBER 

0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

EHTEF:  THE  F:B'10TE  TERMINAL  iRMTIS  FDR  ESCS  OR  RHT3  FOR  FAS) 

RMT 13 

IS  THE  OUTPUT  TO  BE  Oil  XEROX'”  lY  OR  ID 
N 

WHAT  IS  YOUR  PRIORITY? 

11  FOR  WEEKEND*  3  FOP  AVERAGE*  AND  13  FOR  ASAP) 

“j 

WHAT  is  THE  JOS  CLASS?  ' USUALLY  C) 

c 

J03MAME-EP-4DBA  ACCOUNT*01 234o6789  r;f,R I ES=1 
F:OUTE=FT1T  13  F0RI'V=14S1  PRIOR  I  TV =3  CLAS3=C 

IS  THIS  CORRECT''  i.Y  OR  M) 

Y 

JOB  ER40BA » J0B02430 )  SUBMITTED  FFEZ  ALL  FILES  ^ 


-  — 


Example  of  MAKERPT 


EZPSD 

WELCOME  TO  THE  EZPSD  SYSTEM. 

F.A.S.  PSD  DATA  03TAIMED  HERE  IS  HOT  FOP  PELEftSE 
UNLESS  CLEARED  3Y  F.h.S.  COMMODI TY  DIVISIONS. 

ENTER  ROUTINE  CODE  (OR  QUIT  OP  HELP) 

FIRKERPT 

THIS  ROUTINE  WILL  CREATE  OP  CHANGE  EASYTRIEUE 
PARAMETERS  FOR  A  COMMODITY  REF'OPT. 

__ ENTER  THE  NAME  OF  YOUR  REPORT  FORMAT  FILE 

IF  YOU  DON’T  HA'.'E  ONE.-  ENTER  ’  EZPSD.  DATA’ .  i. ERSS5  IS  ASSUMED. ) 

EZPSD. ORTR 

ENTER  THE  7  DIGIT  FAS  COMMODITY  CODE 
37321 88 

ENTER  THE  REPORT  TYPE  -USUALLY  A  FOP  THE  FIRST  REPORT). 

B 

ARE  YOU  USING  ONE  OF  THE  STANDARD  REPORT  FORMATS?  i.Y  OR  N) 

¥ 

YOU  MAY  ADD  AND  CHANGE  THESE  PARAMETERS  USING  THE  TSO  EDITOR. 
SEND  ’STOP’  WHEN  YOU  ARE  FINISHED. 

EDIT 

L 

PROCON- (M  3  P 2)  =  PRO  N  108  TDU 

3TKC0N-  (W  3  P£j  =  ESK  N  108  TDU 

ENP IMP- 1.  W  3  P2)  =  ENP  I  !  108  IMF' 

T1 BUTTER  PRODUCTION?  CONSUMPTION?  TRADE?  AND  ENDING  STOCKS  WITH 
LIST  SPACE  3  DETAIL  SKIP  YEAR  PRO?  ’PRODUCTION’  TDU 7  ’ CONSUMPTN’ 
PROCON  ’RATI G*OF ? PROD- -CONS ’  MORE 

ENP  7  ’  EXPORTS’  IMP?  ’  IMPORTS’  SHRIMP  ’  RATIOsOF ?  E!  iF'T--' IMF'T ’  MORE 
ESK7  ’  END  I NG ?  STOCKS  ’  STKCON  ’RATI  0*0F  ?  STKS-  'CONS  ’ 

END  OF  DATA 
EDIT 

TOP 

•  EDIT 

c  '#■  3  -'x  108--.-'  a 
■  EDIT 

i  « 

INPUT 


coppute 

totS  =  tot! 

tot2 

con PUT E 

TOTS  =  ~OT^  ■' 

tot3 

COnPUTE 

TOTS  =  TOT? 

tot2 

EDIT 

L 

PROCON— 

W  3  F'2 )  •-  PRO 

TDU 

STKCON - 

W  J  F'2.i  =  ESK 

•••  TDU 

enpimp- 

W  3  F'2)  =  ENP 

IMP 

COMPUTE 

TOTS  =  TOT  1 

T0T2 

COMPUTE  TOTS  =  TOT 4  T0T3 
COMPUTE  TOTS  =  TOT?  TOTS 

T1 BUTTER  PRODUCTION?  CONSUMPTION?  TRADE?  AND  ENDING  STOCKS  WITH 
LIST  SPACE  3  DETAIL  SKIP  YEAR  PRO?  ’PRODUCTION’  TDU?  ’CONSUMP”N* 
PROCON  ’  RA7I0*0F ?  PROD--  CONS’  MORE 

ENP  7  ’  EXPORTS’  IMP?  ’IMPORTS’  ENP  IMP  ’  RATIO^OF?  E;  PT.-  IMFT’  MORE 
ESK?  ’  END  I  MG  ?  STOCKS  ’  STKCON  ’RATI 0-«0F  ?  STKS--  CONS  ’ 

END  OF  DATA 
EDIT 

STOP 

ERS85. EZPSD. DATA (33732108)  HAS  SEEN  CREATED. 


ENTER  ROUTINE  CODE  t OR'  QUI  I  OF’  HELP) 
auiF:#? 

THANK  YOIJ  FOR  USING  EZPSD 
READY 


RATIOS 

MORE 


F'A  i  I  OS 
MORE 
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DESCRIPTION: 


The  RGN  (region)  routine  will  submit  a  batch  job  that  will 
aggregate  data  for  a  specified  commodity  into  GOL  regions  . 

The  listing  will  include  data  for  only  the  countries  shown 
in  Appendix  A,  whether  or  not  that  country's  data  is  currently 
maintained  by  FAS.  You  must  enter  the  7  digit  FAS  commodity 
code  (Appendix  B)  and  the  one  letter  report  type.  The  routine 
will  ask  if  one  is  using  a  standard  report  format.  A  report 
format  with  this  commodity  code  and  report  type  must  exist, 
but  if  not  you  may  create  one  using  MAKERPT. 


EXAMPLE : 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 

RGN 

THIS  IS  A  GOL  REGION  BATCH  RUN 

ENTER  THE  7  DIGIT  FAS  PSD  COMMODITY  NUMBER: 

jSSOOOO 

ENTER  THE  ONE  LETTER:  REPORT  TYPE 

R 

ARE  YOU  USING  THE  STANDARD  REPORT  FORMATS?  (Y  OR  N ) 

¥ 

ENTER  THE  JOBNAME 

ERSoLlH 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER:  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 
ffitIS 

IS  THE  OUTPUT  TO  EE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

i.l  FuR  WEEKEND?  S  FuR  AUER: ALL?  AND  IS  FUR  AsAF'J 
WHAT  Is  THE  JuB  ULASSY  (USUALLY  UJ 


J0ENAME=ERS3WH  ACCOUNT*  0123456789  C0PIES=1 
R0UTE=RMT 1 3  F0RM=1431  PRI0RITY=3  CLASSIC 

IS  THIS  UURREl  Ty  (Y  uR  N.i 
¥ 

JOB  ERS3WH ( J0B0SS76)  SUBMITTED  **  FREE  ALL  FILES 


* 


-  13 


EGGS  (S^OOOO)  SUf'f'L  V  ANo  OISTHIttUTfOH,  STOCKS  AND  USE  FIELDS  MAy  bE  THl'NCA»tD  V*aGE 

AGGNF&aIEO  bV  GUI  REGION,  F.a.S.  PbD  DaTa  IS  NOT  F OH  RELEASE 


RGN :  SAMPLE  OUTPUT 


SPKBATCH 


DESCRIPTION: 


The  SPKBATCH  (SPEAKEZ  Batch  job)  routine  will  submit  a  data 
set  of  SPEAKEZ  commands  for  batch  execution  without  you  having 
to  prepare  the  necessary  JCL.  You  may  create  a  set  of  commands 
or  change  an  existing  set  using  the  TSO  Editor. 

If  this  is  a  new  set  of  SPEAKEZ  commands,  they  will  not  be 
saved  unless  you  enter  SAVE  XXX.  Then  the  file  will  have 
the  user's  system  prefix  and  the  suffix  of  DATA.  (e.g.  ERSNN. 

XXX. DATA)  You  finish  this  editing  with  a  STOP.  If  the  SPEAKEZ 
commands  are  not  to  be  saved,  then  you  do  not  need  to  worry 
about  the  accummulation  of  unwanted  data  sets.  If  this  is 
an  old  data  set  of  SPEAKEZ  commands,  then  any  changes  made 
will  be  executed  but  not  saved  unless  you  enter  SAVE.  (XXX 
is  not  necessary  in  this  case)  . 

If  you  are  using  a  MYKEEP  file  with  a  nonstandard  name  ,  the 
routine  will  ask  for  the  name  of  this  file.  You  must  enter 
its  complete  name  including  prefix  and  suffix,  (e.g.  ERS45. 
ER3WK. SPEAKEZ .MYKEEP. DATA)  Next,  the  routine  will  ask  for 
the  library  name  (or  DDNAME  for  those  who  understand  JCL) . 

This  should  be  8  characters  of  the  user's  choosing,  consistent 
with  the  preceeding  SPEAKEZ  commands,  (e.g.  GET  MYPROG  ON  DDNAME) 
However  if  you  enter  MYKEEP,  you  will  be  replacing  the  standard 
file  with  your  file  name  as  the  default  (e.g.  GET  MYPROG  ON 
MYKEEP).  Therefore  you  will  not  be  using  a  mykeep  file  with 
the  standard  name  (e.g.  ERS45 .SPEAKEZ. MYKEEP. DATA) .  In  any 
case  when  asked  if  you  are  using  a  mykeep  file  with  a  standard 
name,  only  say  YES  if  one  currently  exists.  Finally  the  routine 
will  ask  if  you  are  using  a  checkpoint  file.  If  so,  the  routine 
requests  the  name  of  this  file,  which  must  already  exist. 

(e.g.  CHKPOINT ,  not  ERSNN . CHKPO INT . SPEKSAVE ) . 
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Example  of  SPKBATCH 


WELCOME  TO  THE  EZPSD  SYSTEM. 

F.A.S.  PSD  DATA  OBTAINED  HEFE  IS  NOT  FOR  RELEASE 
EULESS  CLEARED  BY  F.A.S.  COMMODITY  DIO  IS IONS. 

ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 

SPKEflTCH 

THIS  IS  A  SPEAKEZ  BATCH  RUN. 

10  YOU  ALREADY  HA'.'E  A  FILE  OF  SPEAKEZ  COMMANDS?  (Y  OR  W 
v  . 

ENTER  THE  NAME  OF  THIS  FILE  (ERS63  IS  ASSUMED). 
ecl'vStd;.  trends,  ortr 
ENTER  THE  .JOENAME 

EFTS'  ER.SluD 

ENTER  _  YOUR'  10  DIGIT  ACCOUNT  NUMBER 

ENTER:  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 
ftitTS 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

Q  FOR  WEEKEND 5  3  FOR  AUER AGE?  AND  13  FOR  ASAP) 

1 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

c 

J0BNAME=ER3WD  ACC0UNT=01 23456789  C0PIES=1 
RODTE=RMT79  F0RM=1431  PRI0RITY=1  CLASS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  THE  SPEAKEZ  COMMANDS  AND  EDIT  THEM  WITH  TSO  EDITOR. 
CHANGES  WILL  NOT  BE  MADE  TO  THE  ORIGINAL  FILE  UNLESS  YOU 
SAKE  THEM.  SEND  'STOP’  WHO!  YOU  ARE  FINISHED. 

EDIT 

L 

00010  SIZE =50 
00030  RESTORE  RATIOS 
0003O  TEAR- I NTS ( 1  19) 

00040  FOR  1=1?  11 

00O50  OLSQ  ARGUMENT f ECSLANUM (I) )  C  YEAR:  ALL 
00060  OLSQ  ARGUMENT (ECRRONUM ( I) )  0  YEAR:  ALL 
00070  OLSQ  ARGUMENT (ECFROSLA ( I J )  C  YEAR;  ALL 
00080  DID  I 
000*30  FOR:  1=3?  1 1 

00100  OLSQ  ARGUMENT (ECEUPPOi I ) )  C  YEAR:  ALL 
06110  OLSQ  ARGUMENT (ECTOTSLA ( I ) )  C  YEAR:  ALL 
00120  OLSQ  ARGUMENT ( ECCATNUM (I))  C  YEAR:  ALL 
00130  DID  I 

00140  QUIT 

END  OF  DATA 
EDIT 

STEP  , 

PRE  YOU  USING  A  MYKEEP  FILE  WITH  A  NONSTANDARD  NAME?  (Y  OR  N) 

M 

ARE  YOU  USING  A  MYKEEP  FILE  WITH  A  STANDARD  NAME?  (Y  OR  N) 

M 

WILL  YOU  BE  USING  A  CHECKPOINT  FILE?  (Y  OR  N) 

v 

ENTER  ONE  NAME  ONLY 

FF1TIC5 

ERS68. RATIOS. SFEKSRUE  MUST  ALREADY  EXIST. 

JDB  ERSWDi. J0E:00042)  SUBMITTED  *>«  FREE  ALL  FILES 

BITER:  ROUTINE  CODE  (QUIT  OR  HELP') 

auiT 

THANK  YOU  FOR  USING  EZPSD 
FEADY 
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Example  of  SPKBATCH 


ENTEF  ROUTINE  CCIE  i.OR  GLUT  CF  hELF ) 

SPKB 

THIS  I';  A  5 F Eh. ►  EH  EATCH  RUN. 

DC  VUU  ALREADY  hhiCE  A  FILE  CF  SFEAkEZ  COMMANDS'*  i."i  CF:  TO 
Y 

ENTER  THE  NAME  i.F  THIS  FILE  •  EF Si 7  IS  ASSUMED)  . 

YUUJ .  UK  A  I  NS .  I  F)T  Fi 
ENTER.  THE  JCENAME 
'  ERC  FD.J 

ETiTEF'  VOLF  1C  DIGIT  ACCOUNT  NLMEER 
£9! 

ENTER  THE  NLMEER  CF  CCFIES  DESIFEL 

ETITEF'  THE  REMOTE  TERMINAL  (RMT13  FOR  ES  CS  CF  RMTS'  FCF:  FRS ) 
Is  >  HE  CUTFU  i  !  ij  rE  Lf'i  .  ERuXY  i.  V  i.F  h.i 
WHAT  is  your  fricrity? 

•.  1  K i.F:  Wk.EF.tjHD’  S  •  uR  AUERAuEj  r-ND  1l  rCF  AsARi 
WHAT  IS  THE  .CD  CLASS?  I USUALLY  C) 


JGBNRME=fc.R3FTu  ACCCUNT-S'rl  1CE71C6 
FuUTE=hf']T  IS  t-  lkM=  1 4S 1  FF.ICF.  IT''i  =  l 

IS  THIS  CCFF'ECT?  i. y  CR  TO 
(' 

ENTER  THE  SFEAKEZ  COMMANDS  FhD  EDIT  THEM  WITH  I  SC  EDITCR . 
UHFiNUES  MILL  NUT  IE  MALE  Tu  i  HL  LKiUlNAL  r  aLE  UNLLyH  rL'J 
SRUE  THE!'!.  SEND  '  S T OF  *  WHEN  iCU  HR.E  FINISHED. 

EDIT 

I 

00.001  SIZE-S0 
CCCCE  GET  YUGGSLAU 
0CC0:S'  EXECUTE  iUGOSLAU 

00504  0IJ  T  T 

END  CF  DATA 
EDIT 
RENLM 
EDIT 

c  30  -'E:  scute  . 

EDIT 

j_ 

0001 1  01  S  I  ZE=  101 
00101301  GET  yL  GO'S  LRU 
0100130  UGGSLRU' 

0010401  QU I T 
END  CF  LATA 
EDIT 
STOP 

AFE  YOU  LS I NU  h  MY REEF  FILE  MiTH  A  NUNsTANDiAFI  Nr* ME  Mr  ;.F  NJ 

ENTER  THE  FILE  NAME-  FULLY  CCALIFIE 

EFS6T .  EF  S 1 1 6  •  S  F'EAk  t M‘r K  sEF  .  _  A  i  rt 

lTiTEF  Tr~E  LIshAFY  1  lF  LL.i  nANL  1  LhS 
WEEP 

AFE  YOU  USING  A  NY REEF  FILE  WITH  A 
N 

MILL  YCL  IE  USING  A  CHECK FC IN T  FILE 
N 

-X'E'  ER3FDJ  (  ..CB0S0A1 )  SL EMITTED 


.!■  WITH  FFEFaN,  AMI  sUrFIM, 
■S  THAN  S'  UHAFAuTERSJ 
STANDARD  NAME  My  i_F  NJ 
,.  iY  ■.  R  hJ 
rFEE  ALL  RILES  ♦♦ 
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SPKPROG 


DESCRIPTION: 

me  SPKPROG  (SPEAKEZ  Program)  routine  will  place  FAS 
PSD  data  into  a  CHECKPOINT  file  for  use  in  SPEAKEZ.  Also 
it  will  execute  in  batch  a  SPEAKEZ  program  in  deck  format 
from  your  MYKEEP  FILE.  Otherwise  this  routine  is  the  same 
as  BRIDGE.  Your  program  will  find  the  PSD  variable  names 
as  name-literal  elements  in  the  variable  VARLIST.  The  vector 
of  years  (i.e.  60, 61  ,. ..78)  is  also  set  as  the  variable  T. 


EXAMPLE : 


ENTER  ROUTINE  COIE  f QUIT  OR  HELP) 

SPKFF;OG 

THIS  -JOB  RIJN'S  h  USER  DESIGNED  SPEAKEZ  PROGRAM  ON  FAS  DATA 
ENTER  THE  COUNTRY  NAME 

EELGiun-ujsEnEOjPG  • 

ENTER.'  THE  1  CHARACTER  OASIS  COLINTRY  CODE 

a. 

ENTER:  THE  3  DIGIT  FfiS  COUNTRY  CODE 
423 

ENTER  THE  COMMODITY  NAfC 
ecEr  Rno  '-’efiu 

OTTER:  THE  ii  CHARACTER:  OASIS  CONNODITY  CODE 

BJ 

BITER  THE  7  DIGIT  FfiS  COMMODITY  CODE 
5311000 

BEEF  HMD  'ERL  DATA  FOR:  BELGIUM-LU:  ZMEOLEG  MILL  SE  SA1 'ED  ON  ERS-45.  EUEL.  SPEKSA'- 
THE  FhS  COMMODITY  CODE  IS  ...3311000  AND  COUNTRY  CODE  IS  423. 

IS  THIS  UjRRElT?  i.'T  OR  N) 

v 

ENTER:  NO  MURE  THAN  7  R"-D  u  CHARACTER  ATTRIBUTE  CODES 

iii  this  format ♦  ahh»  sfr?  spc>  smc>  ukc?  udu?  cut 

THE  YEAR:  INDEX  IS  AUTOMATICALLY  EUYEF'DL.  IF  THE 

COIES  hR:E  UNCHAf 1GED  FROM  THE  PRECEDING  BRIDGE?  ENTER:  shME. 

10  ATTRIBUTES  SPECIFIED.  PLEASE  RE-ENTER. 

KBftjPP'CJ?  I  HP*  *ik<  £~  P*  TDU*  usl 

H-iR?  F'Ru?  IMP*  r sK  *  cJ  .?'*  TDUs  US  1 

IS  THIS  CORRECT?  lY  uPl  N)  *■ 

v 

ENTER  THE  JOENAME 

ESN  TER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
31234.3-73'? 

ENTER  THE  'UJMEER:  OF  COPIES  DEsIPEID 

1 

ENTER  THE  REMOTE  TERMINAL  iRMTIS  FOR  ESC S  OR  PMT3  FOR:  Fhs) 
pot  13 

IS  THE  OUTPUT  TO  BE  ON  HERON?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIOR IT, 3 

(1  FOR  MEEi  END1  >  3  FOP:  AUER  AGE?  AND  13  FuR  ASAP) 

3 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

c 

JGEHfl?1E=ERS3WH  ACCOUNT*  .  -  "  •  -  C0PIES=1 
ROUTE>RMT  1 3  F0RM=1431  -riCKliv-l  CLASS-C 

IS  THIS  CORRECT?  (Y  OR  M) 

s»  , 

THE  UARI ABLE  NAMES  ARE  ELEMENTS  OF  EUBLLST  AMD  AND  THEY  APE  IN  AN  ARGUMENT  LIST 
CALLED  BUELARG. 

ENTER  THE  EFEAKEZ  PROGRAM  NAME  (IT  MUST  BE  IN  DECK  FORMAT 
IN  70UR,  lA'VEEF'  FILE  ERS43.SP EA1  EZ.MYKEER  . DATA) . 

is  set  to  ’MARL  1ST*  AND  THE  '.EARS  (SO*  SI  * ...  7°'  '-cr  IN  >T». 

.  JC3  cS-S3'»wrtC»0B040 1 5)  SUBMITTED  r  r.EE  ALL  FILLS-  ♦ 
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DESCRIPTION: 


SUM 


EXAMPLE : 


The  SUM  (summation)  routine  will  submit  a  batch  job  that 
will  aggregate  up  to  S  specified  commodities  and  list 
this  aggregation  for  all  countries  in  the  FAS  PSD  data 
base.  The  listing  will  include  data  for  all  countries 
in  the  data  base ,  even  those  that  are  not  currently  maintained 
by  FAS.  You  should  enter  between  2  and  8  of  the  7  digit 
FAS  commodity  codes  (Appendix  B)  in  ascending  numerical 
order.  The  routine  will  ask  if  a  standard  report  format 
is  to  be  used.  If  not,  it  will  ask  for  the  name  of  file 
where  your  non-standard  formats  are  kept.  There  must 
be  a  report  format  of  the  specified  type  for  the  first 
commodity  code.  All  of  the  commodities  must  be  comparable 
and  additive  for  the  fields  listed  in  the  report  format 
(which  must  exist  or  must  be  created  using  MAKERPT) . 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP ) 
sun 

THIS  IS  A  COMMODITY  SUMMATION  BATCH  RUN 

SOU  MAY  ENTER  AS  MANY  AS  S  OF  THE  7  DIGIT  FAS  PsD 

fOMIQDITY  CODES.  THEY  MOST  PE  IN  ASCENDING  uRDERj  IN 

THE  FOLLOWING  FORMAT:  53 1 1 000 * 53 1 £000 >531 300U > 5324000 > . . • 

211 1G30* 2111 050 *  2 1 1 1 06O *  2 1 1 1 07Q* 2111 060 *  2 1 1 1 200 

21 1 1030* 21 1105O*  21 11060*  21 1107O*  21 110S0*  21 11300 

IS  THIS  CORRECT?  (Y  OR  N'J 

ENTER  THE  REPORT  FORMAT  (USUALLY  A) 

ARE  YOU  USING  THE  STANDARD  REPORT  FORMATS?  (Y  OR  N) 

v 

ENTER  THE  JOENAME 
SSS3WE 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
012345678? 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAb'J 

3MT13 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (r'  L'R  NJ 
N 

1+lflT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND*  3  FOR  AUER AGE j  AND  IS  FUR  HbHPJ 
WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 


0BNAME=ERS3WH  ACCOUNT®  01234d6/89  COPIES-l 
RDUTE«RMT13  FORM®  1431  PRI0RITY®1  lLhss=u 

IS  THIS  CORRECT?  (Y  OR  N'J 

ENTER  THE  TITLE  OF  THE  REPORT  (UP  TO  73  CHARACTERS J 
err  ins  njp°(_¥  distribution 

COFFSE  GRAINS  SUPPLY  £  DISTRIBUTION 
IS  THIS  CORRECT?  (Y  OR  NJ 

JOB  ERS3WH ( JOE0SSS5J  SUBMITTED  **  FREE  hLL  FILEo  +* 
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i/otnt  COAKSt  CHAINS  SUPPLY  ANU  UTILIZATION  PAQE 
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SUMRGN 


DESCRIPTION: 


EXAMPLE : 


The  SUMGRN  ( summation  by  region)  routine  will  submit 
a  batch  job  that  will  aggregate  up  to  8  specified  commodities 
and  list  them  aggregated  further  by  GOL  region.  The  listing 
will  include  data  for  only  the  countries  shown  in  Appendix 
A,  even  if  that  data  is  not  currently  maintained  by  FAS. 

You  should  enter  between  2  and  8  of  the  7  digit  FAS  commodity 
codes  (Appendix  B)  in  ascending  numerical  order.  The 
routine  will  ask  if  a  standard  report  format  is  to  be 
used.  If  not,  it  will  ask  for  the  name  of  the  file  where 
your  nonstandard  formats  are  kept.  There  must  be  a  report 
format  of  the  specified  type  for  the  first  commodity 
code.  All  of  the  commodities  must  be  comparable  and  additive 
for  the  fields  listed  in  this  report  format  (which  must 
exist  or  must  be  created  using  MAKERPT) . 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 

SUMRC2I 

THIS  IS  A  COMMODITY  SUM1ATI0N  BY  GOL  REGION*  BATCH  RUN 
■,OU  MAY  ENTER  AS  MANY  AS  3  OF  THE  7  DIGIT.  FAS  PsB 
COMMODITY  CODES.  THEY  MUST  EE  IN  ASCENDINUJJKDERj _ IN 
THE  FOLLOWING  FORMAT:  531 1000?  531 £006* 5313000? 5oc4yy«j .. . 
cl  1 1030*311 1050?  31 1 1030* 31 11070?  31 1 1030?  31 11300 
31 1 1030?  31 11050? 31 11060?  31 11070? 3111030? 31 11300 
IS  THIS  CORRECT?  (Y  OR  N) 


ENTER  THE  REPORT  FORMAT  (USUALLY  A) 

FRE  YOU  USING  THE  STANDARD  REPORT  FORMATS? 


v 

ENTER  THE  JOENAME 
ERS3WH 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456739 

enter  the  number  of  copies  desired 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS 
KMT13 

is  THE  OUTPUT  TO  EE  ON  XEROX?  (Y  OR  N) 

s 


UHAT  IS  YOUR  PRIORITY? 
a  FOR  WEEKEND?  3  FOR  AUER AGE?  AND 

WHAT  IS  THE  JOB  CLASS?  ( USUALLY  C) 


13  FOR 


(Y  OR  N) 


OR  RMT3  FOR  FAS) 


ASAP) 


o 


.J0BNR‘1E=ER:S3WH  ACOOLMT= 01 23456/89  COP  I  ES=  1 
R0UTE=RMT 1 3  F0RM=1431  PRIORITt-1  CLAS3-D 


IS  THIS  CORRECT?  (Y  OR  N) 

ENTER  THE  TITLE  OF  THE  REPORT  (UP  TO  73  CHARACTERS) 
CaRPiE:  GFRXNS  a-PPLV  flK'  DI-TTRIEUTION 
COARSE  GRAINS  SUPPLY  AND  DISTRIBUTION 
IS  THIS  CORRECT?  (Y  OR  N) 

JOB  ERS3WH  ( JOB09033)  SUBMITTED  *'*  FREE  ALL  FILES  ** 
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TRENDS 


DESCRIPTION: 


The  TRENDS  routine  will  place  FAS  PSD  data  into  at 
CHECKPOINT  file  for  use  in  SPEAKEZ.  Then  it  runs  time 
trends  on  this  same  data  using  four  functional  forms: 

Y  =  aT  +  e 

Y  =  aT  +  bT2  +  e 

Y  =  aT  +  bT2  +  ct3  +  e 
InY  =  T  +  e 

The  routine  will  ask  you  for  a  country  name,  its  2 
character  OASIS  (or  UN)  country  code,  its  3  digit  FAS 
country  code? the  commodity  name,  its  2  character 
OASIS  commodity  code  and  its  7  digit  FAS  commodity 
number.  (See  Appendices  B  and  D) .  Next,  the  routine 
requests  the  attribute  codes  desired;  you  may  use  either 
FAS  or  OASIS  3  character  codes  (PRO,  BSK,  SPC,  SCC, 
etc,  see  Appendix  C) .  Please  see  BRIDGE  for  further 
details  . 

(See  the  example  on  the  next  page.) 
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Example  of  TRENDS 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 

TRENDS 

THIS  JOB  RUNS  TRENDS  ON  THE  FAS  PSD  DATA 
ENTER  THE  COUNTRY  NAME 

RUSTF:RI_IR 

ENTER  THE  £  CHARACTER!  OASIS  COLUTRY  CODE 
63  E 

ENTER  THE  S  DIGIT  FhS  COUNTRY  CODE 

600 

ENTER  THE  COMMODITY  NAME 

LHEHT 

ENTER  THE  0  CHARACTER  OASIS  COMMODITY  CODE 
£111010 

ENTER  THE  7  DIGIT  FAS  COMMODITY  CODE 

L. 

WHEAT  DATA  FOR  AUSTRALIA  HILL  EE  SAUEIi  ON  EF545.  £1 1 1010602.  SFEKSA1  'E. 

THE  FAS  COMMODITY  CODE  IS  ...L  AND  COUNTRY  CODE  IS  60S. 

IS  THIS  CORRECT?  (Y  OR  N) 

N 

PLEASE  TRY  AGAIN. 

ENTER  THE  COUNTRY  NAME 

RUSTRRLIR 

ENTER  THE  £  CHARACTER  uASIS  COUNTRY  LODE 

RJ 

OTTER  THE  3  DIGIT  FAS  COUNTRY  CODE 

602  . 

ENTER  THE  COMMODITY  NAME 

BEEF  RNO  ','ERU 

ENTER  THE  £  CHARACTER  OASIS  COMMODITY  CODE 

EL> 

ENTER  THE  7  DIGIT  FAS  COMMODITY  CODE 
S3 1 1000 

BEEF  AND  UEAL  DATA  FOR  AUSTRALIA  HILL  BE  SAUED  ON  ERS4S. EUAU . SPEKSAUE . 

THE  FAS  COMMODITY  CODE  IS  ...5311000  AND  COUNTRY  CODE  IS  602. 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  NO  MORE  THAN  7  PSD  3  CHARACTER  ATTRIBUTE  CODES 
IN  THIS  FORMAT-*  AHH*  SPR*  SF'C*  6'MU*  UXU*  UDC*  CUT 
THE  YEAR  INDE2  IS  AUTOMATICALLY  BUYEFAU.  IF  THE 
COreS  AR:E  UNCHANGED  FROM  THE  PRECEDING  BRIDGE*  ENTER  SAME. 
srhe 

hhRj  pro*  imp*  esk*  exp*  tdu*  usi 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  THE  JOBNAME 
e:p  f  I-uh 

ENTER  TOUR  10  DIGIT  ACCOUNT  NUMBER 
•jli-45-,  J 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

RMT2 

IS  THE  OUTFUT  TO  BE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

Q  FOR  WEEKEND*  3  FOR'  AUERAGE >  AND  13  FOR  ASAP) 

1 

WHAT  IS  THE  JOB  CLASS?  N--UALLY  C) 

c 

J0BNhME=ERS3UH  fli::C0!JMT=01 23456789  CuPIES=l 
F:CUTE=RMT3  F0RM=1431  PRI0RITY=1  CLfiSS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

THE  LARI ABLE  NAMES  APE  ELEMENTS  OF  BUAULST  AND  AND  THEY  APE  IN  AN  ARGUMENT  LIST 
CALLED  BUAUARG . 

JOE  ERS3WHZ ( JOBO4O40 )  SUBMITTED  FREE  ALL  FILES 
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APPENDIX  A 


Country  composition  of  regions  in  the  world  grain-oilseeds-livestock  model 


Regions  Composition 

I.  Developed  countries: 


United  States 

Canada 

EC- 6 

EC-3 

Other  Western  Europe 

Japan 
Oceania 
South  Africa 

II..  Centrally  planned  countries  : 
Eastern  Europe 

Soviet  Union 
China 

HI.  Developing  countries : 

Middle  America 


Argentina 

Brazil 

Venezuela 

Other  South  America 


United  States 
Canada 

Belgium,  France,  West  Germany,  Italy, 
Luxembourg,  Netherlands 

Denmark,  Ireland,  United  Kingdom 

Austria,  Finland,  Greece,  Iceland,  Malta, 
Norway,  Portugal,  Spain,  Sweden, 
Switzerland 

Japan 

Australia,  New  Zealand 

Botswana,  Lesotho,  Namibia,  Republic  of 
South  Africa,  Swaziland 


Albania,  Bulgaria,  Czechoslovakia,  East 
Germany,  Hungary,  Poland,  Romania, 
Yugoslavia 

Soviet  Union 

People's  Republic  of  China 


Mexico,  Bahamas,  3ermuda,  Costa  Rica, 
Dominican  Republic,  El  Salvador, 
Guatemala,  Haiti,  Honduras,  British 
Honduras,  Jamaica,  Nicaragua,  Panama, 
Trinidad  S  Tobago,  Other  Caribbean 
Islands 

Argentina 

3razil 

Venezuela 

Bolivia,  Chile,  Colombia,  Ecuador, 
French  Guiana,  Guyana,  Paraguay,  Peru, 
Surinam,  Uruguay 


Continued  — 


*  Alternative  Futures  for  World  Food  in  1985:  Volume  1,  World  GOL  Model 
Analytical  Report,  USDA,  ESCS,  FAER  No.  146, Table  2,  page  9-10. 
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Country  composition  of  regions  in  the  world  grain-oil  seed  s-lives  toe  k  model 
--Continued 


High-income  North  Africa  and  Middle  East  .Algeria,  Bahrain,  Cyprus,  Iran,  Iraq, 

Israel,  Kuwait,  Libya,  Oman,  Qacar, 
Saudi  Arabia,  United  Arab  Emirates 


Low-income  North  Africa  and  Middle  East 

East  Africa 

Cancral  Africa 


India 

Other  South  Asia 

Thailand 

Other  Southeast  Asia 
Indonesia 

High-income  East  Asia 

Low- income  East  Asia 
Rest  of  world 


Egypt,  Jordan,  Lebanon,  Morocco,  Sudan, 
Syria,  Tunisia,  Turkey,  Yemen  (Aden), 
Yemen  (Sana) 

Kenya,  Malagasy  Republic,  Malawi, 
Mozambique,  Rhodesia,  Tanzania,  Uganda, 
Zambia 

Angola,  Burundi,  Cameroon,  Central 
African  Empire,  Chad,  Congo, 

Ethiopia,  Djibouti,  Benin, 

Cabon,  Gambia,  Ghana,  Guinea, 

Equatorial  Guinea, 0uinea-3issau , 

Ivory  Coast,  Liberia,  Mali,  Mauritana, 
Mauritius,  Niger,  Nigeria,  Reunion, 
Rwanda,  Senegal,  Sierra  Leone,  Somalia, 
Togo,  Upper  Volta,  Zaire 

India 

Afghanistan,  Bangladesh,  Bhutan,  Nepal, 
Pakistan,  Sri  Lanka 

Thailand 

Burma,  Cambodia,  Laos,  South  Vietnam  1/ 


Hong  Kong,  Singapore,  South  Korea,  Taiwan, 
Brunei 

Malaysia,  Philippine  Islands 

North  Korea,  North  Vietnam  1/ ,  Mongolia, 
Cuba,  Pacific  Islands,  Papua-New  Guinea 


Indonesia 


1/  The  model  was  designed  before  the  reunification  of  North  and  South  Vietnam  into 
the  People's  Republic  of  Vietnam. 
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APPENDIX  B 


Commodity  Names  and 


Commodity  Name 

Almonds 

Apples 

Apricots 

Barley 

Beef  and  Veal 

Butter 

Casein 

Castor  Beans 
All  Cattle 
Cent-Sugar 
Cheese 
Cherries 

Chicken  Meat-LT  16  weeks  (BROILERS) 

Chicken  Meat-GT  16  weeks 

Cigarettes 

Cocoa  Beans 

Coffee 

Corn  Oil 

Corn 

Cotton 

Cottnseed  Meal 
Cottonseed 
Cottonseed  Oil 

Edible  Offals  (Variety  Meats) 

Eggs 

Filberts 
Fish  Meal 
Fish  Oil 
Flaxseed 
Fluid  Milk 
Goat  Numbers 
Hides  and  Skins 
Hog  Numbers 
Honey 
Hops 

Horsemeat 
Horse  Numbers 
Lamb 

Lamb,  Mutton  and  Goat  meat 

Lard 

Lettuce 

Linseed  Meal 

Linseed  Oil 

Mohair 

Molasses 

Nonfat  Dry  Milk 

Oats 


OASIS  and  FAS  Codes 
Two  Character 


1  Alpha  Code 

FAS  7 

Speakez  Use 

Digit  Code 

AL 

2216010 

AP 

2212010 

AR 

2213010 

BA 

2111070 

BV 

5311000 

BU 

5732100 

CN 

5737100 

BC 

2144100 

CE 

4210000 

SU 

3141100 

CD 

5733000 

CZ 

2213022 

CY 

5325108 

CX 

5325109 

CK 

3191000 

CB 

2241020 

CF 

2241010 

CJ 

3143140 

CO 

2111600 

CT 

2143010 

CM 

3333010 

CS 

2144010 

CL 

3143010 

EF 

5400000 

EG 

5920000 

FB 

2216050 

FM 

3331025 

OF 

3251025 

FL 

2144020 

MI 

5703010 

GN 

4510000 

HD 

5951021 

HO 

4610000 

HY 

5931010 

HC 

2149010 

HS 

5324000 

HN 

4111000 

LB 

5312200 

LM 

5312000 

LR 

5512100 

LI 

2160800 

LN 

3333020 

LO 

3143020 

MH 

5911022 

MO 

3141420 

NF 

5735122 

OA 

2111080 
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appendix  b 


Commodity  Names  and  OASIS  and  FAS  Codes 


Commodity  Name 

Two  Character 

OASIS  Alpha  Code 

For  Speakez  Use 

FAS  7 

Digit  Code 

Olive  Oil 

00 

3242010 

Olives 

OL 

2242010 

Oranges-Tangelos 

OT 

2211100 

Other  Poultry  Meat 

OP 

5325200 

Peaches  Fresh 

PE 

2213030 

Pears 

PR 

2212020 

Plums  Fresh 

PL 

2213041 

Peanuts,  in  shell 

PN 

2144050 

Peanut  Oil 

PI 

3143050 

Peanut  Meat 

PM 

3333050 

Pork 

PO 

5313000 

Potatoes 

PT 

2131010 

Poultry  Meat,  Total 

PY 

5325000 

Rice  , 

RI 

2111041 

Rye 

RY 

2111030 

Safflower  Seed 

SS 

2144110 

Sesame  Seed 

SE 

2144080 

Sheep  Numbers 

SH 

4410000 

Sorghum 

SG 

2111050 

Soybeans 

SB 

2144040 

Soybean  Meal 

SM 

3333040 

Soybean  Oil 

SO 

3143040 

Sperm  Whale  Oil 

sw 

3251020 

Strawberries 

SA 

2215010 

Sunflower  Seed 

SF 

2144090 

Sugar,  raw  basis,  (96%  polar) 

SC 

3141000 

Tallow  and  Grease 

Tobacco,  Total  Unmanuf acted  (all 

TA 

5510000 

types) 

Tobacco,  Flue  cured,  area  and  prod 

TT 

2142100 

only 

TF 

2142101 

Tobacco,  Oriental 

TO 

2142102 

Tobacco,  Burley,  (light  air  cured) 

TY 

2142103 

Tobacco,  Dark,  air  and  sun  cured 

TD 

2142106 

Tobacco,  Dark,  air  cured,  cigar 

TC 

2142107 

Tobacco,  Dark,  fire  cured, 

Tobacco,  other  light  air  cured  (lined 

TE 

2142108 

( incl  Md) , 

TL 

2142104 

Tung  Oil 

TU 

3242050 

Turkey  Meat 

TM 

5329000 

Walnuts 

WA 

2216020 

Whale  Oil 

OW 

3251010 

Wheat 

WH 

2111010 

Wool 

WO 

5911010 
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APPENDIX  C 


COMMODITY  ATTRIBUTE  DESCRIPTION  and  OASIS  and  FAS  Codes 


FIELD  DESCRIPTION 


BEGINNING  STOCKS 
PRODUCTION 
IMPORTS  (CROP  YR) 

TOTAL  DOMESTIC  CONS 
FEED  USE  (GRAINS) 
FOOD  USE  (GRAINS) 
OTHER  USE 
OTHER  USE 
OTHER  USE 
EXPORTS  (CROP  YR) 
ENDING  STOCKS 
AREA  PLANTED  (IN  HA) 
AREA  HARVESTED  (IN  HA) 
YIELD  (PRO/HAR) 

ROUGH  PRODUCTION 
MILLING  RATE  (PRO/RFP) 
JUNE /JULY  IMPORTS 
JUNE/JULY  EXPORTS 
IMPORTS  FROM  US 
EXPORTS  TO  U.S. 


OASIS 

FAS 

see 

BSK 

SPC 

PRO 

SMC 

IMP 

UDC 

TDU 

UFC 

US1 

UHF 

US  2 

US3 

US3 

US4 

US4 

US5 

US5 

UXC 

EXP 

COT 

ESK 

APL 

PLT 

AHH 

HAR 

YHH 

YLD 

SPR 

RFP 

YMR 

MLR 

SMJ 

JJI 

UXJ 

JJE 

SMU 

IUS 

UXU 

EUS 

The  Yield  field  is  calculated  and  does  not  appear 
in  the  FAS  PSD  Data  Base.  These  field  descriptions 
may  vary  by  commodity,  therefore  the  respective  FAS 
Commodity  divisions  should  be  contacted  for  their 
precise  definitions. 
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APPENDIX  D 


Country  Names  and  OASIS  and  FAS  '  Codes 


COUNTRY  NAME 

Afghanistan 

Albania 

Algeria 

Angola 

Argentina 

Australia 

Austria 

Bahrain 

Bangladesh 

B  e  1  g  ium/  Lux  emb  o  u  r  g 

Belgium 

Belize 

Bolivia 

Brazil 

Bulgaria 

Burma 

Burundi 

Cambodia 

Cameroon 

Canada 

Chile 

China,  Peoples  Republic 

Colombia 

Costa  Rica 

Cuba 

Cyprus 

Czechoslovakia 

Dahomey 

Denmark 

Dominican  Republic 

Ecuador 

Egypt 

El  Salvador 

Ethiopia 

Fiji 

Finland 

France 

Gabon 

Gambia 

Germany,  Dem.  Rep. 
Germany,  Fed.  Rep. 

Ghana 

Greece 

Greenland 

Guatemala 

Guinea 


TOO  CHARACTER 
OASIS  ALPHA  CODE 
FOR  SPEAKEZ  USE 

3  DIGIT 

FAS  PSD 

CODE 

AF 

531 

AL 

481 

DZ 

721 

AO 

762 

AR 

357 

AU 

602 

AT 

433 

BH 

525 

3D 

538 

BL 

423 

BE 

424 

BZ 

208 

BO 

335 

BR 

351 

BG 

487 

BU 

546 

BI 

767 

KH 

555 

CM 

742 

CA 

122 

CL 

337 

CN 

570 

CO 

301 

CR 

223 

CU 

239 

CY 

491 

CS 

435 

DY 

761 

DK 

409 

DO 

247 

EC 

331 

EG 

729 

sv 

211 

ET 

774 

FJ 

621 

“  FI 

405 

FR 

427 

GA 

755 

GM 

750 

DD 

'  429 

DE 

42S 

GH 

749 

GR 

484 

GL 

101 

GT 

205 

GN 

746 

30 


COUNTRY  NAME 

Guinea-Bissau 
Guyana 
Haiti 
Honduras 
Hong  Kong 
Hungary 
Iceland 
India 
Indonesia 
Iran 
Iraq 
Ireland 
Israel 
Italy 

Ivory  Coast 
Jamaica 
Japan 
Jordan 
Kenya 
Khmer  Rep. 

Korea,  Dem.  People’s  Rep. 
Korea,  Rep.  (Taiwan) 

Kuwait 

Laos 

Lebanon 

Liberia 

Libya 

Luxembourg 

Malagasy  Rep.  (Madagascar) 

Malawi 

Malaysia 

Mali 

Malta 

Mauritania 

Maurit ius 

Mexico 

Mongolia 

Morocco 

Mozambique 

Namibia 

Nepal 

Netherlands 
New  Zealand 
Nicaragua 
Niger 
Nigeria 
Norway 
North  Korea 
Pakistan 


and  FAS  Codes 


TOO  CHARACTER  3  DIGIT 
OASIS  ALPHA  CODE  FAS  PSD 
FOR  SPEAKEZ  USE  CODE 


GW  764 

GY  312 

HT  245 

HN  215 

HK  582 

HU  437 

IS  400 

IN  533 

ID  560 

IR  507 

IQ  505 

IE  419 

IL  508 

IT  475 

Cl  748 

JM  242 

JP  588 

JO  511 

KE  779 

KH  555 

KP  579 

KR  580 

KW  513 

LA  552 

LE  ■  504 

LR  765 

LY  7  25 

LU  425 

MG  788 

MW  797 

MY  557 

ML  745 

MT  473 

MR  741 

MU  784 

MX  201 

MN  574 

MA  714 

MZ  787 

NA  792. 

NP  536 

NL  421 

NZ  613 

NI  219 

NE  751 

NG  753 

NO  403 

NK  579 

PK  535 


APPENDIX  D 

Country  Names  and  OASIS 


(Western  Africa  Nec) 
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APPENDIX  D 

Country  Names  and  OASIS  and  FAS  Codes 


TWO  .CHARACTER 

3  DIGIT 

OASIS  ALPHA  CODE 

FAS  PSD 

COUNTRY  NAME 

FOR  S PEAKE Z  USE 

CODE 

Panama 

PA 

225 

Papua  New  Guinea 

PG 

605 

Paraguay 

PY 

353 

Peru 

PE 

333 

Philippines 

PH 

565 

Poland 

PL 

455 

Portugal 

PT 

471 

Rhodesia 

RH 

796 

Romania 

RO 

485 

Rwanda 

RW 

769 

Ryukyu 

.  RY 

590 

Saudi  Arabia 

SA 

517 

Senegal 

SN 

744 

Seychelles 

SC 

782 

Sierra  Leone 

SL 

747 

Singapore 

SG 

559 

Somali  Rep. 

SO 

770 

South  Africa 

ZA 

791 

South  Korea 

KR 

580 

South  Vietnam 

VN 

551 

South  Yemen 

SY 

522 

Spain 

ES 

469 

Sri  Lanka 

LK 

542 

Sudan 

SD 

732 

Surinam 

SR 

315 

Sweden 

SE 

401 

Switzerland 

CH 

441 

Syria 

SY 

502 

Taiwan  (Rep.  of  China) 

TA 

583 

Tanzania 

TZ 

783 

Thailand 

TH 

549 

Togo 

TG 

752 

Trinidad-Tobago 

TT 

274 

Tunisia 

TN 

723 

Turkey 

TR 

489 

Uganda 

UG 

778 

Union  of  Soviet  Socialist  Republics 

SU 

461 

United  Arab  Emirates 

AE 

520 

United  Kingdom 

.  GB 

412 

United  States 

US/U9 

104 

Upper  Volta 

HV 

760 

Uruguay 

UY 

355 

Venezuela 

VE 

.  307 

Vietnam 

VD 

548 

Yemen 

YE 

518 

Yugoslavia 

YU 

479 

Zaire 

ZR 

766 

Zambia 

ZM 

794 
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ApPE'Uj*,  Ej  Tin  CioU  '.r,  ;if  I  t-c  t?.FSu  V- ^ u C L ^  jP  t 


/* 


**********, *****»******noooAOio 

*nooooo?o 


JANUARY  3D,  1P7B  *00000030 
>*  THE  EzpSP  PROCEDURE  hAS  hRITTEN  pY  wALTER  HOUSER,  ESCS,  FnCO  *000000^0 
/*  This  PROCEDURE  allots  ACCESS  TO  the  FOREIGN  AGRICULTURAL  SERVICE'S  *00000050 
/*  P.s.o.  DATA  base  USING  EASYTRIEVF.,  ThE  OUTPUT  IS  EIThFR  A  *0Q0000H0 
/*  LISTING  oh  A  MEMBER  IN  a  PARTITIONED  data  set.  In  Tut  LATTES  CaSE  *00000070 
/*  a  set  of  speakfz  Commands  awe  generated  and  run  dsInq  the  program  *00000050 
/*  PSDGET  to  transfer  THIS  data  into  a  CHECKPOINT  (SPEksavc)  file.  *00000t>Qo 
/*  EZPSD  mAY  BE  USED  T u  CR&AjE,  EDIT  AnD  SUBMIT  BAyCH  socakFz  JOBS,  *00000100 
/*  the  HELP  PARAGRAPH  DESCRIBES  THE  ROUTINES  THAT  ARE  AVAILABLE,  *00000110 
/*  w,  hOUSER  i/JO/79  *00000120 

/*  .  *00000130 


CONTROL  ENDCENDO)  NOFLUSH 

"RITE  .1 E L C U h E  TO  THE  EZPSD  SYSTEM, 

WRITE  F.a.S,  PSD  Data  OBTAINED  here  is  NOT  for  RELEASE 
WRITE  UNLESS  CLEARED  By  F.a.S.  COMMODITY  DIVISIONS, 
STA^Tl  WRITE 

SET  &FILENAME  EQ  &S TR ( £RS«5 , ERJhh , PSOEZLST , D AT  A  5 
WRITE  ENTER  ROUTINE  CODE  (OR  Quit  OR  HfcLPT 
HEAD  &TAS* 

ATTN  00 

IF  &SYSPCMD  EQ  EDIT  THEN  END 

WRITE  ATTENTION  BREAK 

aTTn 


0  0  0  0  0  1  SO 
00000 1M0 
00O00  1  70 
OOOQO  1  AO 
000001^0 
00000200 
00000210 
00000220 
00000230 

OG00O2U0 
0000025  0 
0  0  0  0  0  2  b  0 


GOTO  start 

ENOO 

ERROR  DO 

WRITE  EZPSD  SYSTE“  ERROR ,  PLEASE  SAVE  YOUR  UUTPUT  AnD  CONTACT 
WRITE  wALT  HOUSER  AT  X7fe0O9, 

WRITE  LASTCCs&LASTCC  MAXCCaiMAXCC  $YSPCMDs&S YSPCMD  SySSCmOc* 
SSySSChD 

IF  iSY SPCMD  EQ  EDIT  THEN  End 

goto  start 

EnoO 

IF  iTASK  EQ  BP  THEN  set  iTASK  EQ  BRIDGE 
ELSE  IF  Mask  EQ  SPKb  THEN  3£T  iTASK  EQ  SPKBaTCH 
ELSE  IF  i  T  A  S  *  EQ  SuMRGN  TH£N  SET  ITASK  EQ  SR 
ELSE  IF  MAS*  nE  BwlDGE  A  NO  • 


iTASK 

n£ 

CTRY  AnO 

m 

iTASK 

NE 

Chdy  and 

m 

iTASK 

N£ 

R G  M  AND 

m 

M  ASK 

N£ 

sum  and 

m 

iTASK 

nE 

Sk  and  • 

iTASK 

N£ 

SPkoATCH 

AND  • 

iTASK 

N£ 

SPKPRQG 

A  N  0  m 

iTASK 

NE 

H akERPT 

A, NO  - 

iTASK 

nE 

TRENDS  AND  - 

iTASK 

NE 

QUIT  AND 

m 

00000270 
000002AO 
000002^0 
00000300 
0000031 0 
00O0O320 
0O00O330 
OOOOOittO 
00000350 
000003H0 
OO^oniTO 
0  0  0  u  0  3 ft  0 
0000 03QO 
(HiOOOUOO 

OQOuOMl 0 

0000na?o 

OOOOO V30 
OOOQoauO 
0  0  0  u  0  u  5  0 

00O0OUH0 

00000^70 
000  OOaAO 
OOOQOuCQ 
OOOOOSOt) 
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APPENDIX  £ |  Tso  LISTING  OF  TH£  EZPSO  PROCEDURE 


&T  ASK  Ng  N£t.P  THEN  - 
00 

write  Invalid  ROUTINE.  Enter  help  For  Th£  VAlID  CoDEs 

GOTO  START 

ENDO 

GOTO  MASK 

HELP*  *RITF_  THE  FOLLOWING  ROUTINES  AR£  AVaILASLEJ 


0000051 0 
ftono^5?0 
00000530 
000G05U0 
00000550 
OOOonSHO 
00000570 


WRITE  5RlOGE/CTRY/CMDy/PGN#SUM,SUMRGN,TPENOS>SPK8ATCH,,MAK£RPT#QUIT  00Ouo5A0 


w«IT£  to  find  OUT  HOPE  enter  The  ROUTINE  NAME, 
wRITE  EXECUTION  HOOF,  ENTER  START, 

READ  *rtEL?NAME 

IF  iHELPNAME  EU  START  Then. GOTO  START 
IF  XHEL°NAHE  eq  bridge  THEN  DO 


TO  RETURN  TO 


00000590 

OOOOObOO 

oooooe i o 

OOOOObPO 

0000^630 


wRITE 

BRIDGE 

interactive  BRIDGE  PSD 

DATA  TO 

SP£  akF  2 

OOOOObLG 

write 

the  data  is  saved  T n  a 

CHECKPOINT/SPFKS AV£  file. 

ooooo&so 

W  ®  I  T  £ 

valid  ATTRIBUTE  COOES 

nooonoto 

write 

FIELD  DESCRIPTION 

OASIS 

r  as 

000UO670 

WRITE 

oonoo6*o 

WRITE 

BEGINNING  STOCKS 

see 

OSK 

OOOOOoRO 

wRITE 

PRODUCTION 

SPC 

PRO 

00000  7oO 

WRITE 

IMPORTS  fCRUP  YR  5 

SMC 

I  M  O 

000007 1 0 

wRITE 

total  domestic  cons 

UDC 

r  Du 

000007?u 

WRITE 

FEED  USE  (GRAINS) 

UFC 

us  1 

ooooo73o 

WRITE 

FOOD  USE  (GRAINS) 

l]HF 

U  S  2 

ooooo7uo 

wR  IT£ 

other  use 

US  3 

U  S  3 

0000ft7S0 

wRITE 

OTHER  USE 

US4 

usa 

0000G7S0 

WRIT? 

other  USE 

US5 

US5 

0000077. J 

WRITE 

EXPORTS  (CROP  YR) 

uxc 

CXP 

00000730 

write 

Ending  STQCkS 

COT 

ESk 

00000700 

WRITE 

AREA  PLANTED  (IN  HA) 

APL 

plt 

OOOOOBOO 

wRITE 

AREA  HARVESTED  (IN  HA) 

AHH 

H  A  R 

0000031 0 

WRITE 

YIELD  (PPO/HAR) 

VHH 

rio 

00O00820 

wRIT£ 

Rough  production 

SPR 

Rp  p 

00000830 

wRITE 

hilling  RATE  (PfiO/RFB) 

YMR 

mLR 

00OQC830 

wRITff 

JUNE/JULY  IMPORTS 

SMJ 

JJI 

0000^350 

WRITE 

JUNE/JULY  EXPORTS 

UX  J 

JJE 

OOnonBHO 

write 

Imports  prom  us 

S  M  IJ 

ius 

00000870 

wRITE 

Exports  tq  u.s, 

uxu 

Eus 

000008«0 

WRITE 

(THE  YIELD  FIELD  IS  CALCULATED  aNQ  DOES  NQT  AP©eaROGOG089G 

wRIT£ 

in  the  Fas  psd  data 

BASE.  ) 

OOWOOROO 

wRITE 

0  0  0  0  0  9  i  o 

E  N  0  0 

OOOOftRRO 

^pElPNAHE  eq 

SPKPROG  THEN  DO 

O0OOWQSO 

WRITE 

SPKPROG 

BATCH  EXECUTIUN  OF  A  USER  SUPPLIED  SPtAwEZ 

OOOQ09UO 

WRITE 

program  run  against  the 

FAS  PSD 

data,  this 

0000ORP0 

wRITE 

program  **UST  be  in  oeck 

FORMAT 

in  the  user's 

OOOOORHO 

wRIT£ 

HYKEEP  file  (which  must 

HAVE  a 

STanoaHO  N a “£  )  , 

00000R70 

WRITE 

the  Fas  »SD  OaTa  n a m £ 3 

will  be 

IN  VARLT3T  AND 

000009*0 

WRITE 

YEAR  INDEX  IN  T,  a  Cm£CK?OInT/$PE<SaV-E  FILE 

00000-990 

wRITE 

IS  CREATED, 

o  o  o  o  i  u  au 
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-RITE 

ENOO 

IF  amEIPnahe  fg 
WRITE  TRENDS 
write 

WRITE 

WRITE 

£NOO 

IF  ihELP^AME  E'J 
WRITE  3R^9aTCH 
wRITE 
WRITE 
wRIT£ 

£\DH 

IF  iHELPNA^E  EQ. 
WRITE  CTRY 
w»IT£ 

WRITE 

EnOO 

IF  *n6LPNA.1E  £9 
wRITt  £HDY 
WRITE 
WRITE 
EMQO 

IF  &HEl_BNAM£  EQ 
WRITE  RGN 
wR  I  T£ 

£N0O 

IF  4hEl°n amj  eq 
write  SUM 


trends  Then  go 

Batch  execution  of  TREnoS  OF  fas  RSg  o  a  T  a  . 

four  FUNCTIONAL  FORMS  ARF  USEDI  T,T**2,t**3,LQG  Y, 

THE  DATA  IS  SAVED  In  A  C H EC* PQ I  NT / SF? * S A V£  FILE. 


SPwRATCH  Th£n  DO 

Batch  EXECUTION  OF  SPEAKEZ /FEQE AS Y  , 
EXISTING  COhmaNQS  MAY  BE  USED  OR  NEw 
COMMANDS  ENTERED  using  THE  TSO  EDITOR, 


CTRY  THEN  DO 

BATCH  LISTING  OF  all  commodity  data  FOR  A  GIVEN 
Country 


CMDY  Then  DO 

Batch  LISTING  OF  ALL  COUNTRY  DATA  FOR  a  GIVEN 
COMMODITY 


rgn  then  do 


oonot  01 0 
ftonoi o?o 
oono l 030 
0000 1 ouo 

0000 1 OCO 
C  0  0  0  1  owo 
0000 1 OTO 
0  0  0  0  1  0  fl  0 
0000 1 0«0 
0  000  1  1  00 
00001110 
00001120 
0  0  0  o  1  1  3  0 
00O0 1  1  uo 
0000  1  1  *0 
0  0  0  0  1  IRQ 
ooop \ 170 
0000  1  1  AO 
00001 1 RO 
00001200 
0  0  0  0  1  2  1  0 
OOOQ 1 220 
0  0  0  0  1  2  3  0 
OOOC 1 2« 0 
0  0  0  0  1  2  S  0 


WRITE 

-RITE 

WRITE 

ENon 

IF  AhElPNAME  EQ 

-RITE  sumrgn 

WRITE 

-RITE 

write 

write 

EnDU 


SUM  THEN  do 

BATCH  LISTING  OF  AGGREGATED  data  FOR  several 
COMPARABLE  COMMODIITES.  the  report  FORMAT  WILL 
BE  THE  ONE  NORMALLY  USED  FDR  TR£  FIRST  cOmhqdiTy, 


batch  listing  of  data  *or  a  commodity  by  gQl  r£giqnsooooi2ao 

00001270 

0  0  0  o  1  2  a  0 
0000 1 200 
00O0  1  300 
00001 31 0 
00001320 
OOOC 1 330 
0000 1 3U0 
000013*0 
00OC1 3*0 
00001370 
OuOO 1 3Ao 
0000 1 3«0 
0000  1  woo 
0  0  O  0  1  U  1  o 


SR  THEN  DO 

Batch  listing  of  aggregated  DATA  for  several 
COMPARABLE  COMMODIITES  BY  GOL  REGION',  THF  REPORT 
FORMAT  IS  THE  OnE  NORMALLY  USED  FOR  THE  FIRST 
COMMODITY,  SR  IS  A  VALID  ALIAS, 


IF  4HELPNAME  £9  HELP  Th£n  DO 

wRITE  HELP  OROVTDES  THIS  DOCUMENTATION  ONCE  aGatn 

wRITE 

EnUO 

IF  &HELPNAME  EQ  MA<ERPT  THEN  00 

WRITE  MAKERPT  ALLOTS  TH£  USER  TO  CREATE  AND/OR  CHANGE  ThE 
WRITE  EASYTRIEVE  Parameters  THAT  COMPRISE  TME  COMMODITY 

WRITE  REPORT  FORMATS  USED  IN  CMDY / RQN , SU« ,  anq  s», 

wRITE  YOU  MUST  PROVIDE  Th£  FAS  7  DIGIT  COMMODITY  COOS 


0000 1 m2u 

0  000  1  **3  0 

0000 1 «uo 

OGOO 1 
0000 1 UWO 
00001470 
00001 uAO 
0000 1 uRO 
00001500 
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W  P  T  T  F 
wft!T£ 
WHITE 
*  ®  I  T  £ 
white 
WHITE 
WHITE 
WHITE 
WHITE 
wPITE 

white 

WHITE 

wPITE 

WHITE 

white 

WHITE 

white 

write 

white 

WHITE 

white 

white 

white 

white 

WHITE 

WHITE 

WHITE 

WHITE 

WHITE 

wPITE 

wHITE 

white 
white 
wHITE 
wH  l  T£ 

white 

WHITE 
WHITE 
wP  I  T ? 

white 

wPITE 

WHITE 

wHITE 

wHJTE 

WHITE 

wPITE 

wHITE 

W«ITE 

w«IT£ 

wHITE 


AND  A  ONE  LETTER  REPORT  TYPE  F OH  an  FxTSTing 
R£P(JHT  F  0  R  M  A  T  ,  PREFERABLY  ONF  THAT  IS  Sl^LAR 
TU  TH£  ONE  YOU  WISH  TO  CREATE,  OnCc  YOU  hAvE 

founo  such  a  format,  you  hay  edit  it  -it*  the  tso 
EDITOR  until  YOU  APE  SATISFIED.  THESE  parameters 
are  saved  ano  a  message  is  sent  to  walt  houser 

(XTjjSoP)  SO  THAT  HE  Can  LOAD  THEM  IntU  the  REPORT 
FORMAT  DATA  set,  ONCE  this  IS  done,  PLEASE  DELETE 
The  w(jR*  FILE  you  have  CHEATED, 

The  EASYTRIEVE  STATEMENTS  are  of  three  g a s I C  types, 
the  first  In  GHDFr  qF  appearance  IS  the  Equate 
statement,  which  is  optional,  it  is  uf  The  FqRmj 

'X»(w  9  NO)  s  as*  +  IMP  t  PPU  ' 

The  FIELD  x  will  be  The  Sum  of  BEGINNING  STOCKS, 
Imports,  anq  production  (assuming  nqpha(_  field 

ASSIGNMENTS),  FOLLOWING  The  x  In  THE  EQUATE 
STATEMENT  is  the  FIELD  DESCRTPTIOn  (W  9  N0)§ 

THE  'W  9*  MEANS  THIS  IS  a  WURK  FIELD  9  DIGITS  LONG, 
The  no  mfans  that  this  IS  a  quanTaTatIve  FIELD  with 
ZERO  (0)  DECIMAL  PLACES,  POPPER  INFORMATION  MAY 
BE  FOUNO  IN  THE  EASYTRIEVE  MANUAL. 

THE  NEXT  STATEMENT  IS  THE  TITLE  STATEMENT.  IT  IS 
IN  THE  FORM* 

'TlSQYOIL  (31R30U0)  SUPPLY  AnO  D  I  S T B 1 0uT I  ON ' 

The  1  AFTER  The  T  INDICATES  The  LINE  NUMBEPf  THERE 
Can  8E  UP  to  a,  TH£  text  FULLOwInG  the  ti  wIlL 
APPEAR  on  THE  F I P  S  T  TITLE  LINE. 

LAST  IS  THE  LIST  STATEMENT.  IT  IS  In  ThE  Fqrhj 
'LIST  SPACE  1  DETAIL  SKl»  r£AR  MORE' 

The  SPACE  1  INDICATES  that  there  is  TU  BE  OnF  SPACF 
BETWEEN  each  column  on  THE  report,  TnF  C£TaIL  SAYS 
ALL  Data  LINES  are  TO  BE  PRINTED,  The  Skip  CAUSES 
THE  REPORT  TO  «E  DOUBLE  SPACED.  YEAH  IS  THE  COLUMN 
OF  YEARS,  IF  TmE  LIST  STATE-Ent  IS  NUT  COMPLETED, 

the  last  emtpy  on  the  line  should  se  'mqpe#, 
next  you  will  find  the  3  CHARACTER  FaS  a^tRIPUTe 
CODE  wIjh  THE  COLUMN  h£  aQ£ps  I  m  m  f  <j  I  a  t  1 1_  y  FOLLOWING 
IN  SINGLE  OUOTESI  P°u  'PRODUCTION'  moRE 

EACH  HEADER  may  3E  3  LINES  OF  no  MORE  Than  10 
CHARACTERS  PER  LINE,  FOP  a  maximum  UP  So  caraceters 
PEP  ATTRIBUTE,  EACH  LINE  MUST  0£  SEPaRTeO  3y  COmmaS 

Embedded  blanks  must  be  replaced  bm  astppix  (*), 

FOP  EXAMPLE!  HAR  ' A R£ A , H AR Vfc STED # I NwMtC T A pE •  *ORE 
The  LAST  COLUMN  entry  must  not  have  a  M09£  AFTER  IT 

IF  YOU  APE  PATIENT  ENOUGH  re  R£aI}  ThJS  fi*,  TmEn 
I'LL  at  m£AR;'N8  FROM  YOU, 


00001510 

00001520 

00001530 

0000 1 5uo 

00001550 
00001 560 
nooo i 57o 
00001 5^0 
0  0  0  0  1  590 
00001900 
00001610 
00001620 
o  0  o  o  1  o  3  0 

0000  1  6  41 0 
0000 1 6*0 
0000 1 bfcO 

0000 1 070 
0000 1 0*0 
00001 o90 
00001700 
00001 71 0 
00001720 
0  0  0  C  1  7  3  0 
0  0  0  0  1  7  U  0 
00001750 
0  0  0  0  1  7  fe  0 
00001 770 
0000  1  7  A  0 
00001790 
00001800 
00001810 
00001820 
00001830 
0  0  o  o  1  3  U  0 
00001850 
0  0  o  0  1  8  K  0 
0  0  0  0  1  o  7  0 
0  0  0  0  1  8  8  0 
n  o  o  o  i  s  p  o 

0000  1  9  0  U 
00001910 
00O0 1 920 
00001930 
0  0  0  0  1  9  a  0 
00001 9S0 
0  0  0  0  1  9  fr  0 
OUOu 1 970 
0000 1 9»0 

00001990 

00002000 
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*PIT£  wALT  HOUSER  x7o*QR 

wRI  TE 

£NDO 

IF  HHEL^NAME  £Q  QUIT  THEN  DO 

W»IT£  QUIT  WHEN  YOU  ARE  DONE  WITH  EZPSO 

WRITE 

ENOO 

GOTO  HELP 

TRENDS!  IF  4TASK  EQ  TRENDS  THEN  + 

w»IT£  THIS  JOB  RUMS  TRENDS  ON  Th£  F AS  PSD  DATA 
BRIDGE}  IF  4TASK  EG  BRIDGE  TH£N  WRITE  THIS  IS  A  PSD  BRIDGE  TO  SPFA^EZ 
SPKPRUGJ  IF  4 T A SK  EQ  SPkPROG  Then  - 

WRITE  THIS  JOB  runs  A  USER  DESIGNED  SPEAKEZ  PRuGrAh  On  Fa3  DATA 
Bn  1  I  wRITE  ENTER  THE  COUNTRY  NAME 
RE  aO 

IF  S,STR(4SYSUVAL)  ME  4STRO  TH£N  SET  ^COUNTRY  EQ  4STR  ( &3ySDV  AL ) 

WRITE  ENTER  IH£  2  CHARACTER  OASIS  COUNTRY  CODE 

READ 

IF  &STR (&SYSOVAL)  NE  &STRO  THEN  READOvAq  &CT2 
WRITE  ENTER  THE  3  DIGIT  FAS  COUNTRY  CCQE 
READ 

IF  &STR  ( SrSYSDVAL )  NE  ASTRO  THt  N  READOVAL  4CTC00E3 

WRITE  ENTER  THE  COMMODITY  NAME 

READ 

IF  &STR (4SYSDVAL)  NE  ASTRO  THEN  SET  ACOMMQO  EQ  4STR C&SYSDvAL) 

WRITE  enter  THE  2  CHARACTER  OASIS  COMMODITY  COOE 

read 

IF  ASTRC4SYSUVAL)  NE  ASTRO  TH£N  READOVAL  4CM2 
wRITE  ENTER  THE  7  DIGIT  FAS  COMMODITY  CODE 
RE  a  0 

IF  4STH  (  4SYSUVAL)  ME  &STP  O  Th£w  READDVAl  &CMCQDE7 
WRITE  iCUMMno  DATA  fob  ^COUNTRY  WILL  3E  SAVED  QN  * 

&SYSPREF,  .4CM2ACT2,  .SPEKSAVE, 

wRITb  The  FaS  COMMODITY  CODE  IS  ,,,&CMCODE7  AND  CCUnTRy  CODE  IS  ♦ 
4CTC00E3, , 

wRITE  IS  THIS  CORRECT?  (Y  OR  N) 

READ  SAMS 

IF  4  A  NS  Uf  Y  AND  4  A  NS  NF  YE3  THEN  DO 

write  please  try  again, 

GOTO  BRi 
ENOO 

w°IT£  E*'TFR  NO  mORE  than  7  °SD  3  CHARACTER  ATTRIBUTE  COOES 
wRITe  in  THIS  FORMAT}  ahh,S?S,SPC,SmC,U*C,UDC,COT 
white  THE  year  Index  IS  automatically  iCM2,  YER&CT2,'.  IF  ThF 
wRITF  CODES  APE  UNCHANGED  FROM  Th£  PRECEDING  BRIDGE,  EnTe*  SaM£» 
8ROG1J  RE  AO 

IF  4STH ( iSYSDVAl)  NE  SAME  Th£N  SET  SATTPLST  EQ  4STR ( 43 YSO V AL ) 

IF  4STR  (4SYSDVAL)  NE  SAM£  Th£N  - 

READOVAL  4ATTR1,4ATTR2, tA7TR3/*ATTRa,tATTRS#4ATTRA#4ATTR7 
IF  4ATTR1S43TRO  THEN  DO 


0000201 0 
00002020 
00002030 
000020^0 
OOOv20SO 
00002060 
000020TO 
00002  0*0 
00002QPO 
00002100 
00002  1  1  0 
00002120 
00002130 
00002140 
000021*0 
00002  1  HO 
00002170 
00002  1  aO 
00002190 
00002200 
0000221 0 
00002220 
O0OU223G 
00002240 
O00022S0 
00002280 
00002270 
00O022«0 
00002290 
00002300 
00002310 
00002320 
00002330 
00002340 
OOOOP3BO 
00002360 
00902370 
000023*0 
00002390 
0000 2400 
o  o  o  n  2  4 1  o 
000O2u?o 
00002430 
00002440 
000024*0 
00002460 
00002470 
000024*0 
0000249O 
00002500 
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-RITE  NO  ATTRIBUTES  SPECIFIED.  PLEASE  RE-ENTER, 

GOTO  8KDGS 
EnDO 

-RITE  i  ATTRL5T 

"(RITE  IS  This  CORRECT?  (Y  OR  N) 

READ  RAMS 

IF  &  A  n  S  >«E  Y  and  &ANS  NE  YES  then  DO 
-rite  please  try  again 
goto  BRDGl 
£Non 

IF  JATTR2  EQ  &STR()  THEN  SET  &ATTR2=&STR  (999999999 ) 

IF  3.  A  T  T  R  i  EQ  45TR()  TH£N  SET  &A  T  TR  3  =  4S  T  R  C  999999999  ) 

IF  SiA  T  TPa  EQ  &S TR  ( )  THEN  SET  & A T T Ru= 43 TR < 999999999 ) 

IF  X.ATTR5  EQ  *STR()  Th£M  SET  &ATTR5eiSTR C 999999999 ) 

IF  4ATTR6  EQ  4STRC)  TH£M  SET  f.  A  T  TR6S&S  T»  (  999999999  ) 

IF  a,  a  7  T  R  7  EQ  &STR()  TH£M  SET  &ATTR7»iSTR  (999999999  ) 

CONTROL  NOHSG 
ERROR  GOTO  £ R  t 
DEL  ACH2iCT2, .SPEKSAVE 
ER1 I  CONTROL  MSG 
ERROR  DO 

-RITE  E2PSD  SYSTE*  ERROR,  PLEASE  SAVE  YOUR  OUTPUT  AnO  C0MTACT 
-RITE  halt  HOUSER  AT  X76609. 

-RIT£  LASTCCs^LASTCC  MAXCCs&MAXCC  $YSPCMD«4SY3PCM0  SySSCh0=+ 
iS ySSCMD 
GOTO  START 
ENOO 

GOTO  J  CPC  A  RO 

SPK8ATCHI  -RITE  THIS  IS  A  SPEAKEZ  PATCH  RUN, 

SET  *Chk FILE  EQ  \STR() 

-RITE  DO  YOU  ALREAOY  have  A  FILE  OF  SP£A*EZ  COmmanqjZ  (Y  Or  n) 

READ  i A  NS 

IF  &  a  n  s  EQ  N  OR  &AN$  Eg  no  THEN  DO 

SET  4EDIT0AS4STR( 'SYS1 .CLISTCDUHHY) *  DATA) 

'-RITE  if  YOU  SAVE  THESE  SPEAkEZ  Commands  '-hIlE  In  Tog  jSo  EDITOR 
-RITE  (SAVE  XXX),  THEM  ITS  nam£  -ill  P£  &S Y SPR£F , . XXX , D A T A 
t  ndo 
ELSE  OO 

-RITE  EMTER  TH£  NAME  OF  THIS  FILE  C1SYSPREF  IS  ASSUMED), 

REaO  AEOITDA 
ENOO 

GOTO  JOPCARO 

CTR Y l  -RITE  THIS  IS  A  COUNTRY  BATCH  RUM 

-RITE  ENTER  THE  3  DIGIT  FAS  PSD  COUNTRY  NUMBER 

SET  4«EPU»T*SANDD 

READ 

IF  &STR CiSYSDVAL)  n£  SSTR()  TH£M  REAOOVAL  4C0D£ 

SIT  iPRCCMAM£«£2PS0CTY 
GOTO  JOSCARO 

CMDYI  -RITE  THIS  IS  A  C3*MC0ITY  3ATCH  SUN 


00002510 
00002520 
00002530 
00002EUO 
00002550 
00002560 
00002570 
000025*0 
00002590 
00002600 
00002610 
00002620 
00002630 
00O026U0 
00002650 
00002660 
0000?e70 
000026*0 
00002690 
00002700 
0000271 0 
OuOO 3720 
00002730 
00O027U0 
00002750 
00002760 
00002770 
000027*0 
000U2790 
000u2600 
00002*1 0 
00003330 
00003630 
000023UG 
000036F0 
000026-0 
OOOy 3o70 
006023*0 
00002690 
00002900 
00002910 
60002920 
00002930 
000U29U0 
006029^0 
00002960 
00002970 
000029P0 
00002990 
00003000 
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SE  r  4PROCnamEsEZPSDCDY 

*PITE  £mT£R  Th£  7  OTtilT  FAS  PSD  COMMODITY  NUMBER 
READ 

IF  SSTH  (8.3YSDVAL)  nE  4STR ( )  THEM  REAUDVAL  iCODE 

WRITE  ENTER  TW£  U^E  LETTER  REPORT  TYPE 

READ 

IF  4$TR (iSYSOVAL)  NE  4STRO  TH£N  R£ AODV  AL  4R£PGRT 

«“R1TE  are  you  using  the  standard  report  Formats?  (y  OR  n) 

READ  ftAMS 

IF  ft  A  '•  s  E  3  N  DR  4A\S  EQ  NO  THEN  DO 

w R I T £  ENTER  THE  NAME  OF  YOUR  REPORT  FORMAT  FILE  (&SYSPREF  IS  ♦ 
ASSUMED )  , 

READ  ftFlLENAMF 

SET  )iFILENAM£  eq  ftSYSPREF,,ftFILENAME 
ENOO 

SOTO  J06CAR0 

RGNI  WRITE  THIS  IS  A  GDI  REGION  BATCH  RUN 
SET  &PROCNAMEa£ZPSDRGN 

wR  1  T£  £NT£R  THE  7  DIGIT  FAS  PSD  COMMODITY  NUMBER 
READ 

IF  &STRC8.SYSDVAL)  nE  4STR<)  TH£N  R£AQQVAl  4C00E 

WRITE  ENTER  THE  0N£  LETTER  REPORT  TYPE 

READ 

IF  &STR(&SYSOVAL)  NE  4$TR()  THEN  READOVAL  4REPQRT 
WRITS  a?E  YOU  USING  THE  STANDARD  REPORT  FORMATS?  (Y  OR  N) 

READ  *ANS 

IF  4  A  NS  EQ  N  OR  JANS  EQ  NO  THEN  00 

WRITE  ENTER  THE  NAME  OF  YOUR  REPORT  FORMAT  FILE  USysPREF  IS  ♦ 
ASSUMED)  , 

read  ^filename 

SET  ^FILENAME  EQ  SSYSPREF.,iFlLENAMf 
ENOO 

GOTO  vIQBCARD 

SUMj  IF  4  f  a  S  Y  EQ  SUM  THEN  DO 

write  this  is  a  commodity  SUMMATION  3 A TCH  RUN 

SET  4PR0CNAME3EZPSDSUM 

ENOO 

SR  i  IF  4TASK  EQ  SR  THEN  00 

-RITE  THIS  IS  A  COMMODITY  SUMMATION  3Y  GOL  REGION,  BATCH  RUN 

SET  4P«0CNAME*£ZPSOSR 

ENQO 

w  R  j  T  £  YOU  MAY  ENTER  AS  many  AS  8  OF  Tm£  7  DIGIT  FAS  PSD 
WRITE  COMMODITY  CODES,  THEY  MyST  3£  TN  ASCENDING  ORDER ,  IN 
w®IT£  T'h£  FOLLOWING  FORmATj  53  I  1  0  0  0 , 53 1 20  0  0 , 53  1  30  0  0 , 5  324  o  0  0  #  ,  .  . 
SUM l }  R£Ao 

WRITE  43YSDVAL 

wRIT£  IS  THIS  CORRECT?  ?Y  OR  N) 

READ  4ANS 

IF  4ANS  NE  y  and  SUNS  NE  YES  THEN  DO 
WRITE  ?L£ASE  TRY  again 


00003010 
00003020 
00003030 
00003040 
00003050 
0000306Q 
00O030Y0 
00003080 
OQ0u30RQ 
00003  1  wo 
0000311 0 
00003120 
00003130 
000031*0 
00003150 
00003160 
OOOD3 170 
00003180 
000031P0 
00003200 
00003210 
00003220 
00003230 
000032UQ 
00003250 
00003280 
00003270 
00003280 
000032BO 
00003300 
00003310 
00003320 
00003330 
00003330 
00OU3350 
000  (j  3360 
00003370 
00003380 
000033RO 
0  0  0  0  3  *  0  0 
00003*1 0 
00003*20 
00003*30 
00003*20 
00003*50 
00003*80 
0QOG7U70 
00003*80 
00C03WRQ 
00003500 
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GOTO  SUMl 
£  N  OO 

REaOOVal  SUMCHi  #SUMC02,aUMCD3,SliMCDa#3UMCD5,SUMCD6.8UMc07.SUMC06 
SET  iLOWCOOEs&sOMCOI 
IE  4S‘JmC'J«  kj £  *,STR()  Then  00 
SET  4HlGOCO0£E!4J5uMCn8 

SET  4Ml0CnDES  =  4ST»(<SUMC0l^iSUMC02J.iSUMCD3J.lSUMCDU*SsUHC05  + 
^.iSUMC u^C 0  7^.430^0 OS  ) 

ENon 

ELSE  IF  45UHCD7  \E  4STR  ( )  T*En  DO 
SET  4HIGpC00£=&SUmCD7 

SET  <MI0CnCF5  =  4STR  CiSUH.COl^iSUMCDS^lSUMCOS^iSUMCDa^lSUMCOS^ 
J.&SUPCDbJ.45uMCD7 ) 

ENOO 

ELSE  IF  iSUMCDo  NE  4STR()  THEN  DO 
SET  SHiGHronE=4SUHCnb 

SET  4MI0C00ESS4STR  USUHCDl^i5UMCD2J.iSUMC03J.4SUMC0U*&si)MC05  + 

x4Slj^CDo ) 

£N00 

ELSE  IF  4 S U h C 0 5  NE  4STr()  THEN  DO 
SET  4HIGhC00£=4SUmCD5 

SET  4MIDC00ES5&3TR  (4SUMC0l.,.4SUMCD2^4SUMCD3J.4SUHC0a-.J3UMCD5) 

C  N  0  0 

ELSE  Ir  4  $  u  h  C  D  **  n£  4STRO  THEN  DO 
SET  4HlGHC0D£=4SUHC0u 

SET  4HI0C00ES=4STF (4SUMCOlAiSUMC02^1SUMC03*iSUMC04) 

ENOO 

ELSE  IF  4SUHCD3  nE  *STR()  THEN  DO 
SET  ihlGHCUDE*43UHC03 

SET  &MI0C00E5*4ST*  C  4SUHC0 1 -.4SUHCD24.iSUMCD3 ) 

ENOO 

ELSE  IF  4SUHCD2  n£  4STr ( )  THEN  DO 
SET  4HIGhC0DE»4SUmC02 
SET  4HI0C00ES34STR (&SUMC01^&SUMCD2) 

ENOO 
ELSE  OQ 

*RITE  ONLY  ONE  CODE  ENTERED 
**ITE  ? LEASE  TRY  AGAIN 
GOTO  SLMl 
EnDO 

h  R  I T  £  ENTER  THE  REPORT  FORMAT  (USUALLY  A) 

READ 

IF  4STR (4SYS0VAL)  nE  4STR()  THEN  peaoDvAL  iRE°ORT 
-RITE  ARE  You  USING  THE  STanQARO  REPORT  FORMATS?  (Y  OR  nj 
SEaO  4ANS 

Iff  4  A  n  s  EG  N  OP  4  A  NS  EQ  NO  ThEn  DO 

«R  I TE  ENTER  THE  na,m£  OF  YOUR  RE°OR  T  FORMAT  FILE  (  4SY3Pr£F  13  ♦ 
ASSUMED) . 

READ  ir  I LEN a,h£ 

SET  4FILENAME  £3  4SY3PREF..4FILENAME 


0  Q 0 Q 75  j  f) 
OOOO^oRjJ 
0  0  0  0  3®  3  0 
000075uq 
00003550 
000075*0 
00003570 
000035*0 
000075*0 
00007600 
00003610 
00003620 
00003630 
000036*10 
0G003o50 
00003oA0 
00003670 
00007&«0 
00003o<50 
000037no 
0000371 0 
00003720 
00003730 
000037*10 
0 0003750 
0C"O37A0 
0  u  o  ft  3  7  7  0 
000037*0 
00007760 
00007300 
00003610 
00  0  6  3  6? y, 
00003530. 
0  0  0  o  3  6-**  0 
0COG365O 
C0O073AO- 
000 07870 
00003**0 
00007860 
00003RflO 
00003*10 
00007950 
0000793Q 
00O  0  79<iQ 
0  0  0  0  7  6  R  0 
00OO3,5H0 
00003*70 
00003*80 
00003*«<> 

ooooacoo 
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ENijU 

GOTO  JUHCARQ 

F4K£WPT  s  -BITE.  THIS  ROUTINE  WILL  CREATE  OB  CHANGE  EASYTRTEVE 
wPlTg  PARAMETERS  Eu«  a  COMMODITY  REPQRT, 

IF  S.svSPHEf-  NE  EkSuS  Then  00 

WRITE  ENTER  TH£  NAME  OF  YOUR  REPORT  FORmaT  FILE 
-RITE  IF  YOU  DON'T  have  ONE,  EnTER  'EZP  SO  .  D  A  T  A  *  .  + 

C4SVSPRFF  IS  ASSUMED.) 

READ  ((.FILENAME 

SET  4F1LENAME  EQ  4S Y SPREF , , IF  I LEN A, ME 
£N00 

-RITE  EnIER  THE  7  DIGIT  FAS  COMMODITY  CODE 
READ 

IF  &STR (iSYSOVAL)  NE  4STR()  TH£N  R£ AOOV  AL  &CQDE 

CONTROL  NOMSG 

SET  iSAVECOOtsiCODE 

-RITE  ENTER  THE  REPORT  TYPE  (USUALLY  A  FOR  THE  FIRST  REPORT), 

REaO  wype 

SET  43 AV£T YPEsiTYPF 

ERROR  DO 

WRITE  THE  REQUESTED  REPORT  TYPE  &T YPE  DOES  NOT  EXIST  FoR  + 
COMMQJITY  CODE  ACGDE  IN  &ERTEXT,. 
wRJT£  ENTER  AN  ALTERNATIVE  7  OIGIT  CODE  FOR  A  COMPARaBlE  CO*mO* 

0  I T  Y  , 

READ 

IF  4STH ( &SYSDVAL)  NE  1STR()  TH£N  READDVAL  4CCDE 
-RITE  4C0DE 

-RITE  enter  THE  REPORT  TYPE  (USUALLY  A). 

PEaO  &TYPE 
WRIT?  4TYPE 

£nco 

WRITE  APE  YOU  USING  ONE  UP  THE  3TAN0AR0  REPORT  FORMATS?  (Y  OH  N) 
READ  & A  N  S 

IF  4 AMS  ED  Y  OR  4ANS  EU  YES  UR  4AnS  EG  4STR ( )  TWEN  OU 

SET  s,ERT£YT  EQ  45TR(TW£  FILE  OP  3TandaRD  REPORT  FORMATS) 

£0 1 T  fE«Sy5,ER3WH.PSDEZLST,DATA(4TYPE4C0DE) 9  OLO  DATA  nOnUM 
E  n  o  0 
ELSE  DO 

SET  4ERTEXT  ED  ^FILENAME 

EDIT  '4FILENAMEUTYPE4C0DE)  *  OLD  DATA  NONUM 

ENOO  .  „ 

write  YOU  MAY  ADD  ANQ  change  THESE  Parameters  USING  The  tso  editor 
WRITE  send  'STOP'  WHEN  YUU  are  FINISHED, 

TERMIN  STOP 

ERROR  DO  , 

WRITE  THE  REQUESTED  REPORT  TyP£  &SAVETYPE  ALREaOY  EXISTS  FOR  + 

COHMODITY  CCOE  4SAVEC00E  IN  4FILENAME , , 

WRITE  ENTER  AN  ALTERNATIVE  7  DIGIT  CODE  POK  A  C0mPARA8lE  COMmOw 

dity. 

read 


OOOOUO  \  0 
oonooo?o 
0000O030 
OOOQOooq 

ooooooso 
0000(1060 
0000UU70 
0000(10*0 
OOOOUOBO 
OCOQolOO 
00000  1  1  0 
0000(1120 
00000130 
OOOOO  1  (10 
000001*0 
0  0  o  o  a  1  6  0 
ooooa 1 70 

OOOQd  1  *0 

ooooa i po 
000 00200 
0000^21 0 
0 0000220 
00O0O230 
0000O2U0 
00000250 
00000260 
00O0O2T0 
000002*0 
00OCo2«0 
OOOCO 300 
0  0  0  0  o  3  1  0 
00000320 
00000330 
0000 0300 
00O0O350 
00000360 
00 O0O370 
00D0o3*0 
0000O3P0 

OOOOoany 

0  0  o  o  o  4  t  0 
,00000020 
00000-30 
oooooouo 
0000a«50 
00000-60 
00000670 
ooooau*o 
OOOOdoPO 
00000500 
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IF  *STR  C4SYSDVAL)  Ng  iSTRt)  THEN  RgADOVAL  iSAVECODfc 
"•SITE  &SAVECUDE 

*RITE  ENTER  THE  REPORT  TYPE  (USUALLY  A )  . 

READ  iSAvETYPE 
"RITE  iSAVETyPE 
ENDO 

IF  &SYSPREF  NE  ERSa5  THEN  DO 

SAVE  '&FILENAM£(jSAVETyPE*SAVECODEJ' 

"RITE  &FILENAM£U3AVgTYPE*SAVgCnOE)  HAS  SEEN  CREATED 
E  M  D  0 
ELSE  DO 

SAvE  'tRSR5.EP3HH.PSDEZLSTtOATA( &SAVETYPE &SAVECODE 2 # 

"RITE  iSAVETYPEasAVECOOE  MEMBER  ADDED  TO  ER3 "H ,PSOt ZLST . D AT A 
ENDO 
End 

GOTO  START 

JOSCAROj  "RITE  ENTER  THg' JOBNAMg 
'READ 

IF  &STR(!4SYSDVAL)  NE  4STSH  TH£  N  READ  OVAL  4JQBNAME 
"RITE  ENTER  YOUR  10  DIGIT  ACCOUNT  number 
READ 

IF  4STR  USYSOVAt.}  NE  45TR(J  THEN  READDVAi.  4ACCOUn7 
"RITE  ENTER  Tm£  NyMbER  OF  COPIES  DESIRED 
®E  aq 

IF  4ST»USYS0VA|„}  NE  iSTR  ( 1  THEN  R£ADQVA|_  InCOPY 

-RITE  ENTER  ThE  R£wOTE  TERMINAL  ( R M T 1 3  FOR  ESCS  OR  Rmj3  FqR  FaS) 

P£  Ay 

IF  4STR(4SVSDVAL)  N£  iSTR()  THEN  REaOOVAL  &R0UTE 
"RITE  IS  THE  OUTPUT  To  sE  On  XEROX?  (Y  OR  N) 

READ  JANS 

IF  4ANS  =  Y£S  or  (5,  A  nS«  Y  THEN  • 

DO 

SET  4F0RM«XER0 

WRITE  YQU  must  GIVE  THE  OPERATOR  A  REQUEST  FORM  For  Y£RQX 
"RITE  PROCESSING,  PLEASE  ALLOW  3  Days, 

SET  &3YS0UT sO 
ENDO 
ELSE  DO 

SET  HFQRMS1U31 
SET  iSYSQUTsA 

EnOU 

PRIORITY!  SET  4  P  A  N  g  gQ  nO 

P R T Y 1 i  WRITE  "HAT  IS  YOUR  PRIORITY? 

"RITE  (1  FOR  WEEKEND#  3  FOR  AVERAGE#  AND  13  FOR  ASAP) 

READ 

IF  4STR (4SYSDVAL)  NE  &3TR ( J  TH£N  REAOOVAL  4PR  T  Y 
IF  4PRTY  EQ  13  AND  SPANS  EU  NO  Th£n  DC 

WRITE  PRIORITY  13  COSTS  THREE  TIMES  that  OF  PRIORITY  3, 

"RITE  DO  YOU  wish  TO  CHANGE  PRIORITY?  (Y  OR  N ) 

RE AO  4PANS 


OOOOR51 0 
OOOOaSgO 
0000fl530 
OOOOaSuO 
OOOOaSFO 
OOOOU5HO 
OOOOUSTO 
0OO()a5AQ 
OOOOU5RO 

ooouaaoo 

OOOOUbl 0 
OOOOao^O 
0000<i«>3Q 
OOOQObaO 
00O0UB50 
OOOOaabO 
00OOU©70 
OOOOUoAO 
OOOOaaQQ 
000<J4l7no 
0000a  7  1  0 
00f!0«7?0 
0000^730 
0000a  7ao 
0QOOU75O 
0000a7fc0 
000OU770 
0000U7S0 
00fl0a7«0 

ooooaeoo 
0  000a5  l  0 
00ooa@?o 
0  0  0  o  a  o  3  0 
OOOOuduo 
OOOOaPSO 
OOOOaabO 
0Q00a87Q 

0000a6»0 
OOOrxjBPO 
OQOOaROQ 
0  0  0  0  U  R  1  o 
0000a<9?o 
0C00aR30 
0Q00U9U3 
0000OV50 
0  0  0  0  a  R  6  0 
0000a"70 
OOOOaRAO 
OOOOttRRQ 
00003000 
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IF  fcP  A  NS  EG  Y  UP  &PAN$  EU  YES  TH£N  GOTO  PPTYl 

e*oo 

hRIT£  what  IS  THE  JOS  CLASS?  (USUALLY  C) 

HEAD 

IF  ASTfl  (&SYSOVAL)  N£  4STH(J  THEN  REAOOVAl  fcCLASS 
IF  HCLASSsC  THEN  DO 
SET  in!NUTfS««> 

SET  iSECONOSa^O 
FnOO 

ELSE  IF  ACLASSaD  THEN  DO 
SET  *HINUTES»2 
StT  ftSECONDSsO 
EnDo 
ELSE  DO 

WRITE  ENTER  TH£  NUMBER  OF  MINUTES  ALLOWED  FOH  CLASS  tCL*SS 
kEao  %mINUTES 

WRITE  ENTER  TH£  NUMBER  OF  SECONDS  PERMITTED 
READ  ^SECONDS  . 

£  N  tj  0 
WRITE 

WHITE  J0BNAH£*4J08NAmE  ACCOUNTa&ACCOUNT  COP  IES«*NC0PY 

H  R I T  £  ROUTEaiROUTE  FORM.&FORM  PR  I  OR  I T Ya APR T Y  GLASS«&CLASS 

WRITE 

WRITE  IS  THIS  CORRECT?  (Y  OR  N) 

READ  AAMS 

IF  &anS  EG  M  OR  &ANS  EG  NO  Th£n  DO 
WRITE  PLEASE  THY  AGAIn 
GOTO  JOBCARO 
6*00 

ExECll  IF  iTASKsCTRY  OR  &TAS*=CmOy  OR  sTASK=RGN  THEN  + 

EXEC  *ERSu5tEB3WH#PSU£ZLST,nATA()4PR0CNA*£)  '  ♦ 

#4C0DE  ^REPORT  %JOHNAm£  ANCOPY  ^ACCOUNT  A  ROUTE  ASySOUT  ♦ 
aFqRh  iPRTY  AC L A S S  AhInUTES  iSfcCQNQS,  ^FILENAME  * 

IF  iTASKaSHM  UR  %TAS*sSR  THEN 

EXEC  #ERSuS,ER3wh,PSuEZLST,DaTA (&PROCNAMET *  • 

•AtOwCOOE  AMIDCOOES  AHIGhCQOE  ♦ 

&REPURT  sJUBNAMF  JNCO  P  Y  A ACCOUNT  A ROUTE  &SYSOUT  t 
aFqpm  J.PRTY  &CLASS  amtniiTES  1S6C0N0S  tFTLENAMg  * 

IF  AT ASwsdfi  IOGE  OR  ATaSK*TR£NDS  OH  A T A S * = S P nP« 0 G  THEN  QU 

wRITE  THE  VARIABLE  names  AkE  ELEMENTS  OF  &Ch2&CT2,lsT  ano  a 
and  THEY  are  In  an  argument  LIST  CALLED  ACM2ACT2 , aHS, 

EDIT  ,EPSR5tER3Hw,RSDFZLST#DATA(TRENDS)#  OLD  DATA 
C  10  /JOBname/iJOPnAmE/ 

C  10  /NCOPY/ANCOPY/ 

C  10  /ACCOUNT/&ACC0UNT/ 

C  20  /TSOID/iSYSUlD/ 

C  20  ypRIOR/APHTY/ 

C  30  /CLSS/AClaSS/ 

C  30  /mINUTES/4*INuT£S/ 

C  30  /SEC0N0S/ASEC0N03/ 


OOOORO 1 0 
00005020 
00005030 
000050UQ 
00005O50 
0000*060 
00005070 
000050BO 
000050PQ 

oonoFioo 

00005  1  1  0 
000051  2ft 
00005130 
00005140 
00005150 
00005160 
00O0517Q 
000051*0 
00O05190 
00005200 
00005210 
00005220 
00005230 
00005200 
0QOu525O 
00005260 
00005270 
000092 SO 
00005250 
000u5300 
00005310 
00O05320 
00 00533O 
OOOOS3UO 
OOOU53SO 
000053*0 
00005370 
00005350 
00005350 
00005400 
ft  0  0  u  5  R  1  0 
00005420 
00005430 

0000544u 

00005450 

00005460 

00005470 

00005480 

00005400 

00005500 


-  43 


APPfcNUlX  t|  Tsn  listing  of  the  ezpsd  PROCEDURE 


C  40  /LOL AL/MOUTE/ 

C  60  /SSYSOUT/&SYSOUT/ 

C  60  /PSDFOBM/«.F(j«M/ 

C  1  9999  /PRtFi  X/S.SYSPBEF/A 
C  1  9999  /CMc>/s,0'2/ A 
C  1  9999  /CT2/&CT2/4 
TOP 

F  /"TITLE14/ 

C  /"TITLL'V’fc.CUUNTRY  ttCOMMUO"/ 

C  l  9999  /CmDCty/KCmCODF7&CtCODE3/A 
C  650  1000  /FYrRi/^ATTPj/A 
C  6  5  o  1000  /ATTPg/MTTRp/A 
C  65  0  1  000  /ATTRi/sATTwl/A 
C  6  5  o  1  000  /ATT R4/&ATTR4/ A 
C  650  1000  /ATTH5/fcATTR5/A 
C  650  1  A  0  0  /ATT9G/S,ATTR6/A 

C  650  1000  /ATTR7/&ATTR7/A 
TOP 

F  /ATTRsNAHFLTST/ 

C  *  i  / , 999999999//A 
IF  M  AJjKSSPKPROG  THEN  DO 
F  /TrEnDEC*/ 

*PJTE  EnTEK  THE  SPEA*E7  PROGRAM  name  (JT  must  BE  tN  DECK  FQRmAT 
WRITE  IN  YOUR  MYKEEP  FILE  &S Y SPREF , , SPE A K E Z . M YKEE P . D A T A  )  . 

HEAD  ibPKPGM 

«RIT£  aCN2.RCT2.lST  IS  SET  TO  'VARLIST'  AND  THE  YEARS  + 

(60*61 *,,.79)  ARE  IN  *T*. 

C  /TREND ECK/&SPKPGM,/ 

F  /TREnDECK/ 

C  /TRENDECK  ON  ERSUS/&SPKPQM/ 

£  N  0  0 

IF  &TASKSBRIDGE  THEN  DO 
F  /LOAD  OLSG/ 

CEL  *  11 

endo 

IF  MASK  EQ  BRIDGE  OR  &TASK  EQ  TRENDS  THEN  DO 
F  /OASIS, MYKEEP/ 

OEL  a  1 

EnqC 
UNNUM 
S  U  6  M  J  T 

END 

ENDO 

IF  Mask  ed  spkbatch  then  DO 

w R I T £  ENTER  THE  SPEAKEZ  COMMANDS  AND  EDIT  TH£M  WITH  TSO  EOITQR, 
WRITE  CHANGES  WILL  NQT  BE  MADE  TO  THE  ORIGINAL  FILE  UnlEsS  YQO 
WRITE  SAVE  THEM,  SEND  'STOP'  wH£n  YOU  ARE  FINIShEO*. 

ELDIT  SEDITDA  _  _ 

IF  &EDITDA  EQ  i3TR(#SYSl . CL  I  ST ( DUMMY } '  OATA)  THEN  DEL  10 
TERMIn  STOP 


00005510 
00005520 
00005550 
000055^0 
00005550 
00^05566 
00005570 
000055*0 
00005590 
00005600 
0000561 0 
00005620 
00005630 
00005600 
00009650 
00005660 
00005670 

00005C.A0 
00C056O0 
00005700 
00005710 
00005720 
00005730 
000057uy 
00005750 
00005760 
00005770 
000057A0 
00005790 
00O05S00 
0000561  0 
0o00562u 
00005630 
000053*10 
00005a50 
00005660 
00O05670 
000056 50 
00O0589Q 
00005900 

0000591 0 

000o59?0 

00005930 

000059*10 

00009950 

00005960 

00005970 

000059A0 

0Q005990 

00006000 


44 


APPENDIX  E|  TSO  LISTING  OF  THE  EZPSD  PPQCE0U«E 


v  00006010 

T0P  00006020 

INSERT  //&J08NAME  jOti  <  4  A CC OUN?  .  ,  TSO ()0  ,  ,  ,  ,  ,  *NC UP  Y  ,  )  ,  00006030 

INSERT//  'SPkBaTcH',  00006040 

iNSfeHT  //  MSGLEvELsl #PRTYS%RRTY„ , nOT!Fy=&SYSUIO. ,  00006050 

INSERT  //  TIme»(HMINUTES.,&SEC0NDS.),CI.aS3saCLA33.  00008060 

INSERT  /?R0UTE  PRINT  &ROUTE.  00006C70 

Insert  //ST£P2  ExEC  ErsoAsI$»REGIon.QaSIS3600K  00006080 

INSERT  //OASIS. SPEAKIN  00  *  000060RQ 

bottom  00006100 

WRITE  ABE  YOU  USING  A  MYKEEP  FILE  WITH  A  NONSTANDARD  NaM£?  (Y  OR  N)ftO0C611O 
READ  4  A  NS  OO^OfelRO 

IF  &ANS  EQ  Y  OR  &ANS  EQ  YES  THEN  00  0000**130 

WRITE  ENTER  THE  FILE  NAME,  FULLY  QUALIFIED  WITH  PREFIX  AnD  SUFF I  X 0 0 0 0 6 1  4 Q 


REaD  hmyfile 

write  enter  the  library 

READ  &MVDD 


(or  do)  name  (less  than  a  characters) 


000061S0 

00008180 

00008170 


INSERT  //OASIS. 4MYDD  DO  DSNB4M yF I LE . , 

INSERT  //  DISP*SHR 

ENQO 

WRITE  ARE  YOU  USING  A  MYKEEP  FILE  WITH  A  STANDARD  NAME?  (Y  OR  N) 
READ  XAN5 

IF  4ANS  EQ  Y  OR  &AnS  EQ  YES  THEN  DO 

INSERT  //OASIS, MYKEEP  DO  DSNs &S Y SPREF . , S PE AKEZ . M YK&EP , 0 A T A , 
INSERT  //  DlSPsSHR 

ENUO 

WRITE  wILL  YOU  BE  USING  A  CHECKPOINT  FILE?  (Y  OR  N) 

READ  4  A  NS 

IF  4  A  NS  EQ  Y  OR  &ANS  EQ  YES  THEN  DO 
WRITE  ENTER  ONE  NAME  ONLY 
READ  &CHKFILE 

WRITE  iSYSPREF,  ,&CH*FTLE.  .SP&KSAVE  MUST  ALREADY  EXIST*. 

INSERT  //OASIS. &CHKFILE,  DD  DSNs&S YSPREF , . &CHKP I LE . . SP£KS A VE , 

INSERT  //  DlSPsSHR 

EMQO 

INSERT  // 

TOP 

FIND  M/?M 
C  *  m/?M/*MA 

UNNUM 

SUBMIT 

End 

EnDO 
FREEALL 
GOTO  START 

)U I T «  WRITE  THANK  YOU  FOR  USING  EZPSD 

End 


00008180 
00O061R0 
00008200 
00008210 
00008220 
00008230 
0000624Q 
00006250 
00008280 
00008270 
00008280 
000082^0 
00008300 
C  0  0  0  8  3  1  0 
00008320 
00008330 
00006340 
000063BO 
00006360 
00006370 
000063*0 
000O63R0 
00006400 
0000641 0 
00006420 
00006430 
00006440 
000064SQ 
00006460 
00006470 
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